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To the 
Reader 


This book is for people who want to learn how to use, program and enjoy ATARI 
computers. Using this book, you can teach yourself how to read and understand 
ATARI BASIC. This is a beginner's book; no previous computer experience is 
required. 

ATARI computers are friendly, fun, easy to use by kids and adults, at home, 
school or elsewhere. They are superb low-cost computers for educational and 
recreational use. 

That's really what this book is all about-to help you learn to use an ATARI 
computer for your own recreation and education. So play and learn your way 
through this book-have a gbod time! 

You will learn ATARI BASIC, a language you use to tell the computer what you 
want it to do. Since BASIC is a language, learn it as you might learn any language, 
such as English, Spanish, or Swahili. 

• Learn a little bit and use it. 

• Learn a little more and use it. 

• And so on. Be patient. There's no hurry. Becoming fluent in BASIC takes 
some time, but you can enjoy every moment. 

• Be confident. BASIC is a simple language, much more easily learned than 
English, Spanish, or Swahili. 

This book is not a reference manual. It is not a textbook. It doesn't even try to 
cover all of ATARI BASIC. That would take three or four books this size, if we 
explained everything as slowly and carefully as we do in this book. 

If you can read a newspaper or a comic book, you can use this book to help you 
teach yourself to read, understand, and use BASIC. Before you begin, browse 
through Appendix I, "Look Here First," for sources of additional information to 
help you learn. 

Wait! Before plunging into Chapter 1, read "How to Use This Book." 


IX 










How to Use 
This book 


This is a Self-Teaching Guide you can use to teach yourself to read and understand 
ATARI BASIC. Each chapter consists of several sections. At the end of each section 
(except Chapter 1) are questions for you to answer or exercises for you to follow. If 
we ask you to do something on the computer, please do it, and your ATARI 
computer will be your best teacher. EXPERIMENT - try it and find out what 
happens. 

If we ask questions, please answer them. We've left some space for your 
answers throughout this book, but if you need more space, use a separate sheet of 
paper. Don't peek at our answers until you have written yours, then compare. You 
will find our answers at the end of each quiz. Sometimes our answer is the correct 
answer; sometimes our answer is one of many possible answers and yours may be 
just as right or even better. You decide. 

We encourage you to use this book while seated comfortably in front of an 
ATARI computer. Try our examples and exercises and you and the computer will 
soon know what does and doesn't work. 

The first page of each chapter briefly lists what the chapter covers. Scan that list 
and if you feel you already know it, skip to the back of the chapter and take the 
Self-Test. If you miss a Self-Test question, review the section of the chapter in 
which the topic is discussed. You may also wish to browse through the chapter to 
find the little treasures (variations, challenges, puns, and so on) that we have 
buried there for you to find. 

Things get .more challenging as you progress through the book. If you are a 
beginner, start with the first chapter and work (play!) your way through the book. 
If however, you already know some BASIC, feel free to browse, skip around and 
meander through the book. Use the beginning-of-chapter objectives list and the 
end-of-chapter Self-Test as your guides. 

Of course, look at the Table of Contents. You will see the titles of 12 chapters and 
8 appendices. Curious? Go ahead-explore. 

This book is full of challenges ranging from easy to hard to awful. You will find 
challenges with and without solutions and many of our challenges and solutions 
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are unusual. If you are a puzzler-a person who likes to solve problems (especially 
in unusual ways!) - we think you will like our challenges. 

One more thing. As you use this book and your ATARI computer, know this: 

YOU CAN DO NOTHING WRONG! 

You can't harm the computer by a typing mistake. You may make some but this is a 
natural part of exploring and learning. Risk it! Try it and find out what happens. 
You can learn more from your own patient exploration than from this or any book. 

So, explore, enjoy, and tell us about your discoveries as you teach yourself how 
to use, program, and enjoy your computer. 

Bob Albrecht 
LeRoy Finkel 
Jerald R. Brown 
Dymax 
P. O. Box 310 
Menlo Park, CA 94026 




Relax. Make yourself comfortable. The first chapter is especially easy! In this 
chapter you will learn how to use, program, and enjoy your ATARI computer. So 
get ready for an adventure in sound, color and convivial computing! 

ATARI computers are friendly, fun, and easy to learn by kids and adults, at 
home or at school. You can use them for education or recreation, or for more 
"serious" stuff such as math, science, home and personal management or small 
business. 

You will also begin to learn "computerese", the jargon or terminology of com¬ 
puters. You will be able to better understand the literature of the computer age and 
enjoy discussing the exciting things you are doing with your ATARI computer. 

When you finish this chapter, you will know a few things about the ATARI 
computers and be able to use the following words and phrases: 

• ATARI computers: 400,800,600XL and 800XL 

• programs 

• cartridges 

• cassettes and ATARI Program Recorder 

• diskettes and disk drive 

• paddles and joysticks 

• chips: microprocessor, memory 

• ROM (Read Only Memory) 

• RAM (Random Access Memory) 

• memory locations 

• bytes and the mysterious "K" 


l 
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At the end of this chapter, you will be ready to continue on to Chapter 2, in 
which you begin "talking" to your ATARI computer! 

MEET TH€ ATARI COMPUTERS 

This book is a beginner's guide to the ATARI home computers. You can use it to 
help you learn how to operate an ATARI 400, 800, 600XL or 800XL computer. 
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You begin with an ATARI computer and a television set. 



Of course, these two parts must be connected. How to do this is explained in the 
ATARI Owner's Guide that accompanies your ATARI computer, which we assume 
you already have. For information on ATARI products, write to ATARI, Home 
Computer Division, P.O. Box 50047, San Jose, CA 95150 or call toll-free 
800-538-8543, (in California, call 800-672-1404). 


PROGRAMS 

Thousands of programs are available for ATARI computers. A program is simply a 
procedure, a set of instructions, a plan for doing something. You may have already 
used, or created, or been frustrated by programs written in English (or another 
language). For example: 

• A recipe for baking a cake. 

• Instructions for opening a combination lock. 

• Directions on how to get to your house from the airport. 

• And, of course, those maddening instructions for assembling toys, tricy¬ 
cles, playpens, furniture and so on—probably at the last minute on Christ¬ 
mas Eve. 
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The easiest programs to use on your ATARI computer are available as cartridges. 
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To install a cartridge in an ATARI 400 or 800, open the cartridge door, plug in the 
cartridge and close the door. 



To install a cartridge in an ATARI 600XL or 800XL just plug in the cartridge. There 
is no door. 



Many programs are available on prerecorded tape cassettes. A single cassette, 
which might cost from $3 to $30, might contain one large program or several small 
programs. These programs can be entered into the computer by means of the 
ATARI Model 410 or Model 1010 Program Recorder. 
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By using the program recorder, you can quickly load a program into your 
computer, then enjoy its use as written by an expert. As you learn to program in 
ATARI BASIC yourself, you can record your programs on tape cassettes then use 
the program recorder to read them back into the computer. Reduce finger fatigue 
by using the cassette recorder. Appendix A tells you how. 

Programs are also available on diskettes and are entered by means of a disk drive. 



Programs load much faster from a diskette than from a tape cassette. You can 
also save your programs on a diskette, then quickly reload them another time. For 
information on how to do this, consult the Disk Operating System Reference Guide 
that comes with the ATARI 810 or ATARI 1050 disk drive. 

Did your ATARI computer include paddles or joysticks? These useful control 
devices can be used for games and other activities in which things are happening 
on the screen. 

INSID€ TH€ COMPUT€R 

Inside the ATARI computer case is—the computer! It consists of a number of chips 
or tiny wafers containing thousands of microscopic circuits. 

The tiny wafer is about this big: [ | 

Well, that's too small for clumsy human fingers to handle. So the tiny wafer is 
put into a larger package with lots of legs that can be used to connect it to the other 
parts of the computer. 
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One of the chips is the microprocessor which does the actual work of computing. 
Other chips provide the memory of the computer. Still more chips control colors 
and graphics on the screen and give the ATARI computer a wide range of musical 
notes and other sounds. 

ATARI BASIC 

As you work (or play) through this book, you will learn a computer language called 
BASIC. A computer language is simply a set of instructions used to communicate 
with a computer. Compared to natural languages (English, Spanish, Swahili, etc.) a 
computer language is very simple. BASIC has a simple vocabulary (the list of 
words it knows) and a very formal syntax (rules of grammar that it follows). This 
book will help you enjoy teaching yourself how to "talk" to computers, using the 
language BASIC. 

There are many variations, or dialects, of BASIC. In this book, you will learn 
ATARI BASIC which is considerably different from Microsoft™ BASIC, used on 
several home computers. An excellent version of Microsoft BASIC is available 
from ATARI in two storage versions: cartridge or diskette. 

As you learn BASIC, you will read and understand computer programs written 
in BASIC as easily as a child learns to read and understand a natural language such 
as English. 

Simple things first. 

Then a little more. 

Then a little more. 

And so on. 

As with a child, when you begin to understand, you may wish to express 
yourself in the language you are learning. You may write your own, original, 
never-before-seen-on-Earth-or-anywhere-else programs—your programs! 

A BASIC program is a set of instructions that tells the computer what to do and 
how to do it in the language the computer understands—BASIC. A set of instruc¬ 
tions to make the computer do what you want it to do, following the rules of 
BASIC, is called a program—your program. 

M6MORY 

ATARI BASIC is "built-in" to the ATARI 600XL and 800XL computers. The vocab¬ 
ulary (words of ATARI BASIC) and syntax (rules of grammar) are stored in part of 
the memory of the computer. This memory consists of a group of chips called 
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ROM, or Read Only Memory. Information on ROM is permanently stored, much 
like the information in a book or on a phonograph record. The computer can read 
information from ROM but cannot erase it or change it in any way. 


REMEMBER: ROM is Read Only Memory. 


ATARI BASIC is not built-in to the older ATARI 400 and 800 computers. Instead, 
it is available as a plug-in cartridge. Inside the cartridge you will find ROM chips 
containing ATARI BASIC stored permanently for your use. When you want to use 
ATARI BASIC on an ATARI 400 or 800 just plug in the ATARI BASIC cartridge. 

TH€ K6VBOARD 

The most obvious feature of the computer is its keyboard. The ATARI 400 or 800 
keyboard is shown below: 



The ATARI 600XL and 800XL keyboards are somewhat different. 














































































































8 ATARI BASIC, XL Edition 


The keyboard is your control center. You will use it to communicate with the 
computer. Use the keyboard to type information into the computer. As you type, 
the information that you type is stored in the computer's memory. This type of 
memory is called RAM, which means Random Access Memory, and is different 
from ROM. You can put information into RAM, but not into ROM. You can also 
erase or change information in RAM. RAM is like a blackboard or scratch pad. Yes, 
RAM is just more chips. Good grief! Will those chips never stop? 

Actually, RAM should have been called Read/Write Memory, or RWM, because 
information can be read from it, or written into it. Unfortunately, RWM is hard to 
pronounce. 


REMEMBER: ROM is Read Only Memory. Information in ROM is 
permanently stored and can't be changed. RAM is Random Access 
Memory. Information in RAM can be erased, changed, or replaced. 


What you type on the keyboard is stored in RAM. It also appears on the TV 
screen so that you can see what you type. As you will soon see, the computer also 
prints information on the TV screen. Together, the keyboard and the TV screen 
provide two-way communication with the computer. 


REMEMBER: When you type on the keyboard, the information you 
type is stored in the RAM memory. 


The memory (RAM and ROM) of your ATARI computer consists of thousands of 
memory locations. Each memory location can hold (store) one byte. 

• A byte can be a letter, A to Z. 

• A byte can be a decimal digit, 0 to 9. 

• A byte can be a punctuation symbol or a special character (+, *, # , %, 
etc.). 

• A byte can be a code for a shape or a color or a sound. 
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How much memory does your ATARI have? It depends on the computer. 


COMPUTER 

400 

800 

600XL 

800XL 


BYTES OF RAM 

16,384 

16,384 to 49,152 

16,384 to 65,536 
65,536 


As a shorthand notation, many people might say a computer has 4K bytes or 16K 
bytes or 32K bytes or 64K bytes. One (1)K bytes equals 1024 bytes. 

Here is a handy table to help you translate from computerese to English or vice 
versa. 


COMPUTERESE 

ENGLISH 

IK 

1,024 

2K 

2,048 

4K 

4,096 

8K 

8,192 

16K 

16,384 

32K 

32,768 

48K 

49,152 

64K 

65,536 

REMEMBER: A byte is a small unit of information such as a letter or a 

single digit. The memory of an 

ATARI computer consists of thousands 

of locations. Each location can store one byte. One K (IK) bytes equals 

1024 bytes. 



OK, you have now had a brief introduction to the ATARI computer and to the 
jargon of computers, computerese. If you have not already done so, hook up your 
computer and plunge into the next chapter. If you don't know how to hook up your 
computer, then: 

• read the ATARI OWNERS GUIDE that accompanies your computer; or 

• yell for help! There are so many ATARI computers in use, someone might 
hear you. 

Before you move on to Chapter 2, you may wish to take the following Self-Test 
so that you can amaze and delight yourself by how much you have already 
learned. 
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S€IFT€ST 


Answers to the Self-Test questions follow the last question. 

a 


1. Inside an ATARI computer, you will find a bunch of "chips." A chip (check 
the one that applies best): 

(a) can be carried by a strong ant. 

(b) contains thousands of very tiny electronic circuits in a small space. 

(c) can be seen only by mountain sheep (RAMs?) with telescopic eyesight. 

(d) is manufactured by leprechauns using miniature tools. 

(e) requires only a little avocado dip. 

2. Thousands of programs exist for ATARI computers. What is a program? 


3. You can buy programs at department stores, discount stores, toy stores, 
computer stores, software stores, by mail, and probably in other ways. 
Programs for ATARI computers are available in at least three forms. What 
are these forms? 

(a) - 

(b) - 

(c) - 

4. Suppose your ATARI computer system consists of only an ATARI computer 

and a TV set. Which kind of programs (cartridge, cassette, diskette) can you 
use?_ 

5. Complete each sentence. 

(a) To use programs recorded on tape cassettes, you must have 


(b) To use programs recorded on diskettes, you must have_ 

6. Your ATARI computer has two kinds of memory. What are they called? 

(a) _ 

(b) _ 
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7. Answer the following by writing RAM and/or ROM. 

(a) Which can be erased or changed?_ 

(b) Which is permanent and can't be changed?_ 

(c) From which can information be read?_ 

(d) Which is used to store information from the keyboard?_ 

8. ATARI BASIC is a computer language built-in to the newer ATARI 600XL 
and 800XL computers. In what form is ATARI BASIC available for the older 
ATARI 400 and 800? 


9. What is a byte?. 


10. What is a memory location? 


Answers to Self-Test 

1. The most appropriate answer is probably (b) contains thousands of very tiny 
electronic circuits in a small space. However, if you are a computer pirate 
using trained ants to pilfer parts, answer (a) might be more appropriate. 

2. A program is a set of instructions that tells the computer what to do and how 
to do it. (It is the program that makes the computer appear smart or dumb, 
friendly or arrogant, helpful or stand-offish, passive or interactive.) 

3. Most commercially available programs are available on (a) cartridges, (b) 
tape cassettes, or (c) diskettes. Cartridges are the easiest to use, especially if 
you are a beginner in using computers. 

4. Cartridge. All ATARI computers have a slot into which you can plug in 
program cartridges. You don't have to buy additional equipment to use 
cartridges. Cartridges are very "fumble-proof" compared to cassettes or disk¬ 
ettes. For the ATARI 400 and 800 computers, ATARI BASIC is available as a 
cartridge. 
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5. (a) To use programs recorded on tape cassettes, you must have an ATARI 
Model 410 or Model 1010 Program Recorder. You use it to get information 
into the computer's memory (RAM) or to save information already in the 
memory, on tape. Your aching fingers will testify to the usefulness of devices 
such as the cassette recorder. Your impatient mind will sometimes grumble 
at its slowness. 

(b) To use programs recorded on diskettes, you must have an ATARI Model 
810 or Model 1050 disk drive. Use it to quickly load information into the 
computer's memory (RAM) or save information already in the memory, on a 
diskette. 

6. (a) RAM (Random Access Memory). 

(b) ROM (Read Only Memory). 

7. (a) RAM; (b) ROM: (c) both RAM and ROM; (d) RAM 

8. For the ATARI 400 and 800 computers, ATARI BASIC is available as a plug-in 
cartridge. Guess how ATARI BASIC is stored inside the cartridge. Yup, in 
ROM! 

9. A byte is a small unit of information such as a letter A to Z, a single digit 0 to 9, 
a punctuation symbol (,.:;!?-), a special symbol ( # % etc.), a code for a color 
or sound or shape, or even a space. 

10. A memory location is a place in the memory big enough to store one byte. An 
ATARI computer has thousands of memory locations, sometimes expressed 
as a number of K-bytes, where IK = 1024. For example, the ATARI 400 has 
16K locations and the ATARI 800XL has 64K locations. 

Since each memory location can store one byte, we also say that the ATARI 
400 has "16K bytes" of memory and the 800XL has 64K bytes of memory. 


Now your fun begins. In this chapter, you will start to learn how to talk to your 
ATARI by typing instructions called direct statements or commands. A direct state¬ 
ment (command) tells the computer to do something. The computer does it 
immediately, then waits for your next instruction. 

When you finish this chapter, you will be able to: 

• Clear the TV screen 

• Use direct PRINT statements to print information on the screen 

• Use SETCOLOR to change the colors on the screen 

• Use SOUND to tell the computer to make musical (and non-musical) 
sounds 

• Recognize error messages from the computer (in case you make an error or 
tell the computer something it doesn't understand) 

• Correct typing errors 

• Look forward with confidence to the next exciting chapter 
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You can begin with an ATARI computer, ATARI BASIC, and a television set. 



ATARI BASIC is built-in to the ATARI 600XL and 800XL computers. For the older 
ATARI 400 and 800 computers, ATARI BASIC is stored in a separate ROM 
cartridge. 

We assume your ATARI is set up and ready to go, with ATARI BASIC built-in or 
plugged in. Ready? Begin. Turn on the computer and the TV. This is what you 
should see. 



-Wr)W- 


If you don't see this, turn everything off and make sure the computer and the TV 
are properly connected. 

Whenever you see the cursor you know it is your turn to do something, 
otherwise the computer will simply wait patiently until you are ready to use it. 
After a while, it will change the screen colors every few seconds to protect your TV 
from having images burned permanently into the screen. 
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Questions_ 

1. ATARI BASIC is built-in to the ATARI 600XL and 800XL. How is ATARI 
BASIC installed in an older model 400 or 800?_ 


2. When you first turn on the computer, with ATARI BASIC ready-to-go, you 
see the word READY and a rectangular blob. What is the rectangular blob 
called?_ 


Answers_ 

1. ATARI BASIC is available as a ROM cartridge. Plug it into the ROM slot on 
the ATARI 400 or into the left ROM slot on the ATARI 800. 

2. The cursor. When you see the cursor, you know the computer is ready and 
waiting for instructions from you. 


TH€ K€VBOflRD 


The keyboard is your control center. 


BIBBBBBBBBBiBBB 
mm q q q q o O O O Q O 0 0 BB 
■BBBBBOBBBB00B 
IBBBOOBOBBBOB 





RESET 


OPTION 


SELECT 


START 


HELP 


POWER 


Find the SHIFT keys and the 



key on your keyboard. 


Hold down either SHIFT key and press the CLEAR key. 
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The screen is blank except for the cursor. Pressing SHIFT and CLEAR simul¬ 
taneously erases the screen, leaving only the cursor in its home position. The home 
position of the cursor is near the top left corner of the blue part of the TV screen. 

Another way to clear the screen and home the cursor is to press and hold down 
the CTRL key (ATARI 400 or 800) or CONTROL key (ATARI 600XL or 800 XL) and 
then press the CLEAR key. CTRL is an abbreviation for CONTROL. The CTRL key 
is located on the left of the keyboard, directly above the SHIFT key. The CTRL key 
is similar to the SHIFT key in that you use it only in connection with other keys. 
Nothing happens if you press it without pressing another key at the same time. 

When you clear the screen you should see: 



Find the SPACE key, the long bar on the bottom of the keyboard: 


Watch the cursor and press the SPACE key. The cursor will move one space to 
the right and you will hear a click. Press the SPACE key several times. Each time, 
you will see the cursor move one space to the right and you will hear a click. 

Press the SPACE key and hold it down. The cursor will move and click across 
the screen. At the right end it will continue on the next line down. When the cursor 
is about half-way across the screen, release the SPACE key and the cursor will 
stop. 


Find the DELETE BACK S key: 


Watch the cursor and press the DELETE key. The cursor will move one space to 
the left and you will hear a click. Press the DELETE key several times. Each time, 
the cursor will move to the left and you will hear a click. Hold the DELETE key 
down and the cursor will move to the left and keep moving until it reaches a 
position about two spaces from the left edge of the screen. There it will stop. 
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Clear the screen. The cursor is now in its home position. Press the [A] key and 
hold it down until you see this on the screen: 


Press the DELETE key and the cursor will move one place left and erase an A. 
Press the DELETE key again. The cursor will move left and erase another A. Hold 
down the DELETE key and the cursor will move to the left, erasing all the A's. 

Clear the screen, then type A \B_ C_ _D_ \e\ . 




DO THIS: 
Press DELETE 
Press DELETE 
Press DELETE 
Press DELETE 
Press DELETE 


AND SEE THIS: 

ABCDB 
ABC ■ 
ABM 

AH 


REMEMBER: Press the DELETE key to move the cursor one place to 
the left and erase whatever was there. 


Clear the screen and then hold down the [a] key until you see this on the screen: 


AAAAAAAAAA ■ 
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Hold down the SHIFT key and press the DELETE key. Zip! Faster than a blink, 
the cursor zips to the left and erases the entire line of A's. 

Try this. Hold down any letter key until about two and a half lines of that letter 
are on the screen. For example: 


zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 
zzzzzzzzzzzzzzzzzzzz ■ 





Hold down the 
disappear. 



key and press the 



key. Quick as a wink, all the Z's 


REMEMBER: Hold down the SHIFT key and press the DELETE key to 
erase everything to the left of the cursor. In some cases, the erasing will 
hop up a line and continue from the right to left end. Read on to find out 
more! 


Clear the screen so you see only the cursor in its home position. 

Find the RETURN key and press it. The cursor moves down one line. 


The cursor moved from here 

to here 

Hold down the RETURN key. The cursor moves down the screen until it 
reaches the bottom line where it stops. If you continue to hold the RETURN key 
down it seems to "bounce" on the bottom line. 

Now type your name and then press the RETURN key. Here is what happened 
when Karl typed his name. 
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KARLB 


As Karl typed his name, the 
cursor moved to the right. 


Then Karl pressed the RETURN key: 

Karl typed this-*-KARL 
It printed this—ERROR-KARL■ 


The ERROR message means that the computer did not understand the word 
KARL. Karl (who is 16 and proud of his name) was quite surprised. How could his 
name be an error? 

We explained to Karl that the computer didn't understand him. The word Karl is 
not one of those special BASIC words that the computer understands. "Aha!" 
exclaimed Karl, and he, as you will also, began to learn about those special words 
that the ATARI does understand. 

We assume the bottom of the screen still looks as follows— well, perhaps your 
name is there instead of Karl's name. 

KARL 

ERROR- KARLB 

v- 



Press the RETURN key a few times. Each time you do, the information on the 
screen moves up one line. This is called scrolling. Pressing RETURN, if the cursor 
is on the bottom line, causes all the information on the screen to scroll up one line. 
Keep pressing RETURN or hold it down and soon everything except the cursor 
will disappear off the top of the screen. 


Find the 



and press it *. Then type A 



You will see: 


abcB 


* On the 600 XL or 800 XL, this key looks like this: 
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Aha! Pressing the CAPS/LOWR key lets the computer print both lower case 
letters and upper case letters (CAPS). To type a lower case letter, just press the 
letter key. To type an upper case (capital) letter, hold down the SHIFT key and 
press the letter key. To get back to all caps, hold down the SHIFT key and press the 
CAPS/LOWR key. 

To get caps only, press [SHIFT ] and I lower I together - 


CAPS 

To get lower case, press only LO wer 


Questions_ 

1. Describe two ways to clear the screen. 

(a) - 

(b) - 

2. Where is the home position of the cursor?_ 

3. Some turkey left the screen looking like this: 


/GOBBLE GOBBLE* 

Describe three ways (without CLEARing the screen) to erase the above 
turkey message. 


4. Describe how to type the following message on the screen. 


^Twinkle, Twinkle, Little StarB 



5. Suppose the above is on the screen and someone presses the RETURN key. 
What will happen?_ 
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Answers 


key. 

2. Near the top left corner of the screen. Actually, it is on the top line of the blue 
part of the screen, two spaces to the right of the left edge of the blue part of 
the screen. 

3. (a) Press the DELETE key 13 times. 

(b) Hold down the DELETE key until the cursor gobbles up GOBBLE GOB¬ 
BLE. 

(c) Hold down the SHIFT key and press the DELETE key. Gulp! GOBBLE 
GOBBLE is gone. 

4. First press the CAPS/LOWR key. Then type the message. Use the SHIFT key 
to type capital letters. 

5. The computer will type an ERROR MESSAGE and the cursor will reappear 
below the E in ERROR. Everything is OK. No damage has been done. The 
computer is very patient and forgiving. After you make a mistake, it will 
display the error and then turn on the cursor to let you know it is ready for 
you to try again. Many other errors are possible. You will meet some of them 
as you learn ATARI BASIC. 


1. (a) Hold down the SHIFT key and press the 



key. 


(b) Hold down the CTRL key (or CONTROL key) and press the 



VOUR FIRST BASIC WORD 


To avoid misunderstandings with a computer, you must learn its language. In 
ATARI BASIC, there are special words to tell the computer to do things. 


A special BASIC word 




PRINT tells the computer to print something on the TV screen. Lucy will 
demonstrate how it is done. 


But first, find the 



key on the upper right corner of the keyboard. 


Press the SYSTEM RESET key and you will see: 


READY 
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This returns the computer to a state much like it was in when you first turned it 
on. OK, now Lucy will demonstrate. First she cleared the screen. 



Then she pressed the RETURN key. 


Lucy typed this 

The ATARI did 
the rest. 


PRINT "LUCY" 
LUCY 

READY 


Try it yourself. Since we don't know your name, try it with Lucy's name. 
First, clear the screen. 


You type: PRINT "LUCY " and press RETURN 


Remember, to type quotation marks ("), hold down the SHIFT key and press the 


2] key. Try another one. 


You type: PRINT "TAKE A DRAGON TO LUNCH " 

It prints: TAKE A DRAGON TO LUNCH 

But don't let a dragon take you to lunch! 

The statement: PRINT "TAKE A DRAGON TO LUNCH" is a direct PRINT 
statement. It tells the computer to print something on the screen. The computer 
prints whatever is enclosed in quotation marks following the word PRINT. 
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In a PRINT statement, a string is enclosed in quotation marks. A string is any 
bunch of keyboard characters, typed one after another. 

A string can be a name: KARL 
A string can be a telephone number: 415-323-6117 
A string can be a message: TAKE A DRAGON TO LUNCH 
A string can be gibberish: AB #J°/oFD + Z 

A string can be almost anything you can type on the keyboard. However, since 
quotation marks (") mark the beginning and end of a string, they can't be part of the 
string itself. 


REMEMBER: A direct statement is obeyed by the computer directly 
after you press RETURN. 


Have you made a typing error yet? If you do, ATARI BASIC has a simple way to 
fix it. Watch while we make a typing error. 

We type: PTINT "E.T." 

It prints: ERROR- PTINT "E.T." 

Since we mispelled PRINT the computer doesn't know what we want. If we had 
noticed that we hit T when we meant to press R, we could have corrected our 
mistake by using the DELETE key. 


DO THIS 

SEE THIS 

COMMENTS 

Clear screen 

■ 


Type PT 

PTB 

Oops! 

Press DELETE 

PB 

Erases T. 

Finish typing 

PRINT "E.T."B 

Looks OK. 

Press RETURN 

E.T. 

AOK! 


READY 
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The DELETE key is great for deleting an error you just made. But suppose you 
are typing a long line and are almost to the end when, alas, out of the left corner of 
your left eye, you spot a mistake way back at the beginning. 


We type: 


PRIMT "GARFIELD LOVES LASAGNE"* 



t 

You haven’t pressed RETURN 


If you now press RETURN, you will get an ERROR message. Instead, you can 
delete the entire line and start over, or you can fix the mistake. 

To delete the entire line, hold down SHIFT and press DELETE BACK S. Poof! 
The line disappears. 

Many ATARI BASIC words have abbreviations. There are two ways to abbrevi¬ 
ate the PRINT command. 

Instead of PRINT, type PR. Include this } 

i period. N 

PR. "KARL" 

PR. "LUCY" 

PR. "TAKE A DRAGON TO LUNCH" 

PR. "Garfield loves lasagne." 

Instead of PRINT, type a question mark. 



? "KARL" 

? "LUCY" 

? "TAKE A DRAGON TO LUNCH " 
? "Garfield loves lasagne." 



REMEMBER: Abbreviations for PRINT P R or 
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EXPERIMENT! To learn more about ways of PRINTing on the screen, try these. 
Avoid clutter — clear the screen before you type each PRINT statement. 

(a) PRINT 1,2 (f) PR. "GREEN";"SLEEVES" 

(b) PRINT 1 ;2 (g) PR. "SLEEVES","OF "."GREEN" 

(c) PR. 1,2,3 (h) PR. "SLEEVES";"OF";"GREEN" 

(d) PR. 1;2;3 (i) PR. "SLEEVES";"OF ";"GREEN" 

(e) PR. "GREEN"."SLEEVES" 

Questions_ 

1. Complete each of the following by showing what the computer prints. 

(a) You type: PRINT "HAPPY BIRTHDAY, MOTHER!" 

It prints: _ 

(b) You type: PR. "C3PO LOVES AN OIL BATH." 

It prints: _ 

(c) You type: ? "Twinkle, Twinkle, Little Star" 

It prints: _ 

2. Complete each PRINT statement so the computer prints as shown. 

(a) You type: PRINT_ 

It prints: MY HUMAN UNDERSTANDS ME 

(b) You Type: PRINT_ 

It prints: BURGLARS ARE IN THE HOUSE! 

Answers_ 

1. (a) It prints: HAPPY BIRTHDAY, MOTHER! 

(b) It prints: C3PO LOVES AN OIL BATH. 

(c) It prints: Twinkle, Twinkle, Little Star 

2. (a) Here are three ways to tell the computer. 

PRINT "MY HUMAN UNDERSTANDS ME" 

PR. "MY HUMAN UNDERSTANDS ME" 

? "MY HUMAN UNDERSTANDS ME" 
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(b)Again, three ways. 

PRINT "BURGLARS ARE IN THE HOUSE!" 

PR. "BURGLARS ARE IN THE HOUSE!" 

? "BURGLARS ARE IN THE HOUSE!" 

Along with the burglar message, we could also arrange (as you will see later) to 
have the computer sound an audible alarm. For example, it might play The 
Jailhouse Blues in four part harmony! Hopefully, this might remind the burglar of 
the possible consequences of crime and thus prevent the attempted theft. 



TH€R€'S R RAINBOW IN YOUR RTRRI 

When you first turn on your ATARI, it comes up in GRAPHICS 0 mode. Most of 
the screen is blue. The cursor is light blue, as well as the letters and other 
characters. There is a black border around the screen. 
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If you don't press a key for several minutes, the screen colors begin changing 
every few seconds. This is done to protect your TV from getting certain colors or 
images burned permanently into the screen. Press almost any key and the blue 
screen returns. 

You can also get GRAPHICS 0 mode by pressing the SYSTEM RESET key. It is at 
the top right corner of the keyboard. After you press SYSTEM RESET, on the 
screen you should see this: 



Tired of a blue screen? Try another color. 


You type: SETCOLOR 2,2,8 and press RETURN 

When we did this, the screen color turned to orange. The actual color depends on 
the settings of the color controls on your TV set (TINT, COLOR, or whatever they 
are called on your set). 

To get back to good old GRAPHICS 0 (blue screen), you can do any of the 
following. 

Press the SYSTEM RESET key. 

Type: GRAPHICS 0 and press the RETURN key. 

Type: GR. 0 and press the RETURN key. GR. is the abbreviation for 
GRAPHICS. 


Try more colors. To save time, use the abbreviation (SE.) for SETCOLOR. 


SE. 2,0,8 
SE. 2,0,0 
SE. 2,0,14 
SE. 2,12,8 
SE. 2,12,0 
SE. 2,12,14 


grey screen 

black screen ("dark grey ") 
light grey screen 
green screen 
dark green screen 
light green screen 


The SETCOLOR 2 command lets you set the color and the luminance (brightness) 
of the screen. 


S€TCOlOR 2,_, 
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Here are the color numbers: 


NUMBER 

COLOR 

NUMBER 

COLOR 

0 

grey 

8 

light blue 

1 

gold 

9 

blue-green 

2 

orange 

10 

aqua 

3 

red-orange 

11 

green-blue 

4 

pink 

12 

green 

5 

violet 

13 

yellow-green 

6 

blue-purple 

14 

orange-green 

7 

blue 

15 

light orange 


The luminance number sets the brightness from 0 (darkest) to 14 (lightest). Use 
even numbers from 0 to 14. Odd numbers are OK, but are recognized as the next 
lower even number. 


REMEMBER: The second number following SETCOLOR selects the 
color from the above table. The third number determines the lumi¬ 
nance from darkest (0 or 1) to medium bright (8 or 9) to lightest (14 or 15). 
SE. is the abbreviation for SETCOLOR. 


Put your ATARI back in GRAPHICS 0 mode. The quickest way to do this is to 
press the SYSTEM RESET key. 

Type: SE. 1,0,0 and press RETURN. 

The printing on the screen becomes very dark because you have changed the 
luminance, or brightness, of whatever is printed on the screen, including the 
cursor. Try two more. 

SE. 1,0,14 makes the printing very bright. 

SE. 1,0,8 makes the printing medium bright. 


This works with any color. Try violet.* 

SE. 2,5,8 violet screen, medium bright 

SE. 1,0,0 dark printing 

SE. 1,0,14 very light printing 

*The actual color also depends on the color settings on your TV. 
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The SETCOLOR 1 command lets you control the luminance of the information 
printed on the screen. 


S€TCOlOR 1,0, 


Not used. 
Zero is OK. 


Luminance 
0 to 15 


Try various luminances from 0 to 15 with colors of your choice, using SET- 
COLOR 1 to set your color. 


Perhaps you have guessed what comes next. Instead of a black border around 
the screen, try other colors. Start with a normal blue screen (GRAPHICS 0) and try 
these. 


SE. 4,4,8 
SE. 4,4,0 
SE. 4,4,14 


luminance 


color 


pink border 
dark pink border 
light pink border 


Use SETCOLOR 4 to control the color and luminance of the border around the 


screen, 


S6TCOLOR 4, 


color 


luminance 


Your ATARI is your best and most patient teacher. What if? Try it and find out. 
Write down what happens and soon you will have your own book! 

The computer uses a group of color registers to control the colors on the screen. In 
GRAPHICS 0, these registers are numbered 1, 2, and 4. 

• Color register 1 controls the brightness, or luminance, of information 
printed on the screen. This is called the foreground of the screen. 

• Color register 2 determines the screen's background color and luminance. 
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• Color register 4 controls the color and luminance of the border around the 
screen. 



A SETCOLOR command has three numbers. The first number specifies the 
color register; the second number specifies the color (except in SE. 1); the third 
number determines the luminance. 


S6TCOIOR 

■ 

color register —- 


color 


luminance 


Hmmm...what if? Try it and find out. For example, try some of these. 

SE. 2,-1,8 SE. 2,256,8 

SE. 2,16,8 SE. 2,17,8 

SE. 2,255,8 SE. 2,255,16 


For color or luminance, try any number from 0 to 255. 
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Questions_ 

1. In GRAPHICS O, what are the colors of the following: 

(a) the border?_ 

(b) the background?_ 

(c) the foreground?_ 

2. Write a SETCOLOR command to make the foreground 

(a) very light_ 

(b) very dark_ 

(c) medium bright_ 

3. Write a SETCOLOR command to make the background 

(a) aqua, medium bright_ 

(b) red, very dark_ 

(c) blue, very light_ 

4. Write a SETCOLOR command to make the border 

(a) grey, very bright_ 

(b) orange, medium bright_ 

(c) black_ 


Answers_ 

1. (a) black 

2. (a) SE. 1,0,14 

3. (a) SE. 2,10,8 

4. (a) SE. 4,0,14 


(b) medium blue 
(b) SE. 1,0,0 
(b) SE. 2,3,0 
(b) SE. 4,2,8 


(c) light blue 
(c) SE. 1,0,8 
(c) SE. 2,7,14 
(c) SE. 4,0,0 (dark 
grey) 
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MUSIC, PL€flS€! 

Your ATARI adventure has been colorful but quiet. Add some musical accompani¬ 
ment. Press SYSTEM RESET, then 

You Type: SOUND 0,121,10,10 and press RETURN. 

Do you hear it? If not, turn up the volume on your TV. You should hear a tone. It 
goes on, and on, and on. 

Press SYSTEM RESET. The tone stops. 

Do it again, exactly this way: 

Clear the screen. 

Type: SOUND 0,121,10,10 and press RETURN. 

SOUND 0,121,10,10 
READY 


Type: END and press RETURN 
The tone stops and the screen looks like this: 



You may turn off the SOUND by pressing the SYSTEM RESET key or by typing 
END and pressing the RETURN key. Here is still another way to turn off the 
sound. 

Type: SOUND 0,0,0,0 and press RETURN. 
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Yes, you can abbreviate SOUND. The abbreviation for SOUND is SO. Use SO. 
to make some sounds. 


SO. 0,108,10,10 
SO. 0,121,12,10 
SO. 0,121,10,2 


SO. 0,96,10,10 
SO. 0,121,8,10 
SO. 0,121,10,14 


The ATARI has four voices. You have heard voice 0. The others are voices 1, 2, 
and 3. You can hear all of them at once. The first number following SOUND tells 
what voice to use. Clear the screen and type the following SOUND statements. 

SOUND 0,121,10,10 Voice 0 

SOUND 1,108,10,10 Voice 1 

SOUND 2,91,10,10 Voice 2 

SOUND 3,72,10,10 Voice 3 



Type END to hear the restful sound of silence. 
EXPERIMENT: 


SOUND 0, 



, 10,10 


The second number following SOUND controls the pitch, or frequency, of the 
tone. High numbers give low tones; low numbers give high tones. 

Hmmm...wonder what note on the musical scale tone'number 121 is? Here is a 
hint. 
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See Appendix C for a table of frequency numbers corresponding to musical 
notes. 

The third number controls the distortion of the sound. The numbers 10 and 14 
give a pure tone. For distortion, use only even numbers: 0,2,4,6,8,10,12,14. Of 
course, if you wish, try an odd number to see what happens. 

The fourth number controls the loudness between 0 (silent) and 15 (loudest). 

EXPERIMENT: Try your numbers. 

SOUND_,__,_ 

t t t t 

Voice Frequency Distortion Volume 
0 to 3 0 to 255 0 to 14 0to15 

We have told you three ways to turn off the SOUND. Press SYSTEM RESET or 
type END (and press RETURN) to shut off all four voices. You can shut off just one 
voice by typing a SOUND statement for that voice using a volume of 0. We will 
usually do it this way: 

SO. 0,0,0,0 
SO. 1,0,0,0 
SO. 2,0,0,0 
SO. 3,0,0,0 


Questions_ 

1. Write a SOUND command using voice 2, frequency 91, distortion 10, and 

loudness 8._ 

2. The frequency can be any number from_to_. 

3. The distortion can be any of these numbers:_ 

4. The loudness can be any number from to 

5. Describe two ways to turn off all four voices. 


(b) - 

6. How do you turn off only voice 3? 


Turns off voice 0. 
Turns off voice 1. 
Turns off voice 2. 
Turns off voice 3. 
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Answers_ 

1. SOUND 2,91,10,8orSO. 2,91,10,8 

2. 0 to 255 

3. 0,2,4,6,8,10,12,14 

4. 0 to 15 

5. (a) Type END and press RETURN. 

(b) Press the SYSTEM RESET key. 

6. Type SO. 3,0,0,0 and press RETURN. 


S€IF-T€ST 


Before zooming on to Chapter 3, dally for awhile in this self-help Self-Test. 


1. What is the cursor? 


2. How do you clear the screen? 


3. What happens when you press the DELETE BACK S key? 


4. Suppose you type DO THE HOMEWORK ON PAGE 157 and press the 
RETURN key? What does the ATARI do? 


5. Suppose you type PRINT "DO THE HOMEWORK ON PAGE 157" and press 
RETURN. What does the ATARI do? 


6. When you first turn on your ATARI, with ATARI BASIC ready to use, the 
computer comes up in GRAPHICS 0 mode. What does the screen look like? 

7. How can you put the computer in GRAPHICS 0 mode?_ 

8. In GRAPHICS 0, three color registers control the colors on the screen. 
Complete the table showing what each color register controls. 
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COLOR REGISTER 


CONTROLS 



In the 


command: S€TCOLOR 1, 


t 

2nd 

number 


t 

3rd 

number 


(a) What does the 2nd number tell the computer? 

(b) What does the 3rd number tell the computer? 


In the command: S€TCOlOR 2, 

• i 


t t 

2nd 3rd 

number number 


(a) What does the 2nd number tell the computer? 

(b) What does the 3rd number tell the computer? 


the command: S€TCOLOR 4, 


t t 

2nd 3rd 

number number 


(a) What does the 2nd number tell the computer? 

(b) What does the 3rd number tell the computer? 
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12. A SOUND command has four numbers following the word SOUND. 

SO U N D_,_,_,_ 

t t t t 

1st 2nd 3rd 4th 

number number number number 

What does each number control and what is the range of legal values for each 
number? 

(a) 1st number:_ 

(b) 2nd number:_ 

(c) 3rd number:_ 

(d) 4th number:_ 

13. Describe two ways to turn off all voices. 

(a) - 

(b) - 

14. How do you turn off only voice 1? 


Answers to Self-Test 

1. The cursor is a small rectangle. It marks the place where information will 
appear on the screen as you type it on the keyboard. When you see the 
cursor, you know it is your turn to do something. 

2. Here are two ways to clear the screen. 

(a) Hold down the SHIFT key and press the CLEAR key. 

(b) Hold down the CTRL key and press the CLEAR key. 

Either method erases everything from the screen except the cursor. 

3. The cursor moves back (to the left) one place and erases any character in that 
position. 

4. The ATARI prints an ERROR message on the screen. What's this? You are 
trying to get the computer to do your homework. Computers know that 
HOMEWORK (such as vacuuming, mopping floors, cleaning one's room, 
washing dishes, and so on) is for humans, not computers. 
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5. The ATARI prints: DO THE HOMEWORK ON PAGE 157. Ha! Of course. 
The computer tells you to do the homework...because you told it to tell you to 
do the homework...oh-oh, if the computer doesn't do the homework and you 
don't do the homework...who will do the homework? 

6. The screen is blue with a black border. You see the word READY and the 
cursor in a lighter blue. 

7. The easiest way is to press the SYSTEM RESET key. If you see the cursor 
alone on a line, you can also type GRAPHICS 0 or GR. 0 and press the 
RETURN key. 

8. COLOR REGISTER CONTROLS 

1 Foreground (printed information) color and luminance 

2 Background color and luminance 

4 Border color and luminance 


9. (a) Nothing. The number is not used with color register 1. However, even 

though the number is not used, it must have a value in the range 0 to 255. 
We usually set it to zero (0). 

(b) The luminance of the cursor and printed characters. The computer 
recognizes even numbers from 0 to 14. Use 0 to get the darkest characters 
and 14 for the brightest. Odd numbers are OK, the computer simply uses 
the next smaller even number (0 for 1, 2 for 3, and so on). 

10. (a) Background color. There are 16 colors, usually numbered 0 to 15. It is OK 

to use any number from 0 to 255, since the ATARI will reduce a number 
larger than 15 to a number in the range 0 to 15. 

(b) Luminance of the background. Use even numbers from 0 to 14. Zero (0) is 
darkest, 14 is brightest. 

11. (a) Border color, numbered 0 to 15. It is OK to use any number from 0 to 255 

since the ATARI will reduce a number larger than 15 to a number in the 
range 0 to 15. 

(b) Luminance of the border. Use even numbers from 0 to 14. Zero (0) is 
darkest, 14 is brightest. 
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12. (a] The first controls the voice to be heard. There are four voices, numbered 

0, 1, 2, or 3. 

(b) The second number controls the pitch, or frequency, of the sound. It can 
be any number from 0 to 255. Low numbers make high sounds and high 
numbers make low sounds. 

(c) The third number controls the distortion, or quality, of the sound. Use 
even numbers from 0 to 14. 

(d) The fourth number controls the volume, or loudness, of the sound. Use 
numbers from 0 to 15. Zero (0) is inaudible - use 1 to get the quietest 
audible sound. Fifteen (15) produces the loudest sound. Of course, it also 
depends on how you set the volume on your TV set. 

13. (a) Press SYSTEM RESET. 

(b) Type END and press RETURN. 

14. Type SOUND 1,0,0,0 and press RETURN, OR 

type SO. 1,0,0,0 and press RETURN. 

Now take a break. Do something relaxing, then go on to Chapter 3. 



Chapter 

Three 



In this chapter, you will learn to read, understand, and use simple ATARI BASIC 
programs. These programs will include statements you already know how to use 
(PRINT, SETCOLOR, SOUND) and new statements (GOTO, REMARK, FOR, 
NEXT). 

When you finish this chapter, you will be able to: 

• Read and understand short programs that include PRINT, SETCOLOR, 
SOUND, GOTO, REMARK, FOR, and NEXT statements 

• Use NEW to erase any old, unwanted programs from the computer's 
memory (RAM) 

• Enter a new program into the computer's memory (RAM) 
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• Tell the computer to LIST a program on the TV screen 

• Tell the computer to RUN (obey, execute, carry out) a program in its 
memory (RAM) 

• Write simple programs using PRINT, SETCOLOR, SOUND, GOTO, 
REMARK, FOR, and NEXT statements 

• Use graphics characters to put patterns on the screen 

• Edit, correct, and delete statements in a program. 


V€RV SMALL PROGRAMS 


Now you will learn how to enter a program into the ATARI'S memory. The 
following program causes the computer to put Karl's name on every line of the 
screen. 


The program consists of two lines. 

This is a line: 10 PRINT "KARL" 
This is a line: 20 GOTO 10 


10 PRINT "KARL" 
20 GOTO 10 



Each line consists of a line number followed by a statement. For instance: 


10 PRINT KfiRl 


/ 

line 

number 


statement 


// 


When you type a statement that begins with a line number, the statement is not 
executed immediately after you press the RETURN key (as in Chapter 2). Instead, 
the statement is stored in the computer's memory for later execution. 

Line numbers tell the computer the order in which to follow statements in the 
program. Line numbers don't have to be consecutive integers such as 1, 2, 3, 4, 5, 
and so on. Instead it is better to number by tens as we do in the above program. 
Then, if you wish, you can easily insert or add more lines between ones you 
already have. For example, in the above program the line numbers are 10 and 20 
allowing you to add nine more lines between them (lines 11, 12, 13, 14, 15, 16, 17,18, 
and 19). 
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Of course, you don't have to number by tens. If you prefer numbering by 
thirteens or fives or jumping around, do it! 

Before you enter a program, you must first remove or erase any programs that 
may already be stored in the memory (in RAM, that is). If you don't do this, the new 
program may become intertwined with an old program, resulting in confusion! 

Here is how to erase old programs and get the computer ready to accept a new 
one. First, CLEAR the screen. Then: 

You type: NEW and press the RETURN key. 

You should see this on the screen: 



The computer has erased the portion of its memory that stores BASIC programs. It 
is ready to accept a new program. Of course, if you misspell NEW, the computer 
may not understand you. 

We type: GNU 

It prints: ERROR- GNU ' 

Apparently the computer doesn't appreciate puns. 
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Now you are ready to enter the two-line program to put Karl's name on the 
screen. Here it is again: 

10 PRINT"KARL" 

20 G0T010 

You are ready to enter the program. Do this: 

(1) Clear the screen. 

(2) Type: NEW and press RETURN . 

(1) Type: 10 PRINT "KARL" and press RETURN . 

(2) Type: 20 GOTO 10 and press RETURN. 

If you make a typing error, correct it by using the DELETE key. If you have 
already pressed RETURN, simply retype the line correctly, including the line 
number. The program is now stored in the computer. The computer patiently 
awaits your next instruction. 

If you did all the above without any typing errors, you will see this on the screen: 



NEW 

READY 

10 PRINT "KARL" 
20 GOTO 10 


If it is not exactly the same, try again from the beginning. Soon, we will show 
some neat ways to make corrections. Is the program really stored in the computer's 
memory? Find out. First clear the screen. Then: 

Type: LIST and press RETURN. 


The screen should read: 


/uST 

10 PRINT "KARL" 
20 GOTO 10 


READY 




44 ATARI BASIC, XL Edition 


LIST tells the computer to print all of the statements in the program stored in the 
computer's memory on the screen. After listing the program, the computer prints 
READY and turns on the cursor to let you know it is your turn again. Yes, LIST has 
an abbreviation. Type L. instead of LIST. 

Finally! The program is stored in memory (RAM, of course) and ready to go. It's 
time to RUN the program. 

You type: RUN and press RETURN. 

Quick as a wink, Karl's name appears on every line and you will see this on the 
screen: 




KARL 

KARL 

KARL 

KARL 

KARL 

KARL 

KARL 


KARL 

KARL 

KARL 






Nothing more seems to happen. Actually, the computer keeps printing KARL on 
the bottom line. Each time it does, all the other KARLs are pushed up one place; 
the top KARL is "pushed off" the top of the screen. This happens so quickly, 
however, that only superheroes with ultrafast eyes can see it happen. 

How do you stop the computer? Easy. Find the BREAK key. Press it. Congratula¬ 
tions! You have stopped the computer. The bottom part of the screen probably 
looks like this: 


KARL 

KARL 

KARL 


STOPPED AT LINE 10 
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To stop the computer, press the BREAK key. 

How does the program work? 

This line: 10 PRINT "KARL" 
tells the computer to print the string KARL on the screen. 

This line: 20 GOTO 10 

tells the computer to go to line 10 and continue. 

When you type RUN and press RETURN, the computer starts executing the 
program, beginning at the smallest line number. The computer does line 10, then line 
20, then line 10, then line 20, then line 10, and so on and so on and so on...until 
someone presses the BREAK key. 

Follow the arrows: 

RUN 

* 

10 PRINT "KARL" 

I 

20 GOTO 10- 

The BASIC word GOTO can also be spelled GO TO or GO. (including the 
period). Try this: Enter each of the following programs and LIST it. 

10 PR. "KARL" 10 ? "KARL" 

20 GO. 10 20 GO TO 10 

If you use abbreviations in a program, then LIST the program, the computer 
prints the full unabbreviated word, PRINT instead of PR. or ?, and GOTO instead 
of GO. 



Questions_ 

1. What happens when you type a direct statement or command, without a line 

number?_._ 

2. What happens when you type a line that begins with a line number?_ 

3. Before entering a BASIC program, you usually type NEW and press the 

RETURN key. Why?_ 

4. How do you tell the computer to print on the screen a listing of a program 

stored in its memory?_ 
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5. How do you tell the computer to execute (do or obey) a program stored in its 

memory?_ 

6. Write a short program to put your name on every line of the screen._ 

Answers_ 

1. The computer obeys your command immediately. 

2. The computer stores the line for later use. 

3. This erases, removes, or deletes any old program that might be in the 
computer's memory. If you don't do this, lines from an old program might get 
mixed up with lines from your new program, thus causing mysterious and 
unpredictable results when you RUN the program. rvY°ryy/\ 

The abreviation for 3 
LIST is L. j 

6. We don't know your name, but here are two programs to put Garfield's name 
on every line of the screen. 

10 PR. "GARFIELD" 10 ? "Garfield" 

20 GO. 10 20 GO TO 10 

And Jim Rudd did it this way: 

10 PR. "Jim is GREAT!" 

20 GO. 10 

OOPS! 

Here is a tiny program we think you will understand. 

10 PRINT "SNOOPY" 

20 GOTO 10 

Suppose, while typing line 10, you misspell PRINT, but don't notice the mistake 
and press RETURN. 

As an example, we cleared the screen, then typed NEW to erase any old 
programs. Then we mistyped line 10 and pressed RETURN. 


4. Type LIST and press RETURN. 

5. Type RUN and press RETURN. 
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Since we pressed RETURN, the line is stored incorrectly in the memory. To 
show this, we LIST the line: 



Yes, line 10 is incorrectly stored in memory. Here is one way to fix it: Simply 
retype the line, including the line number. The new line 10 will replace the old line 
10 . 


Type: 1 0 PRINT “SNOOPY” and press RETURN. 
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If you now type LIST, you will see the most recent line 10. The new line 10 
replaces the old line 10. To convince yourself that this happens, do the following. 


Clear the screen. 


You type: 

NEW 

You type: 

10 PRINT "SNOOPY 

You type: 

LIST 

It prints: 

10 PRINT "SNOOPY 

You type: 

10 PRINT "LUCY" 

You type: 

LIST 

It prints: 

10 PRINT "LUCY" 

You type: 

10 PRINT "CHARLIE 

You type: 

L. 

It prints: 

10 PRINT "CHARLIE 


n 


n 


// 


n 



REMEMBER: To change a line in memory, just type a new line with the 
same line number. 

ALSO REMEMBER: You can type L. instead of LIST. 


There are many ways to make mistakes in entering a program. Here is a program 
we want to enter in order to remind someone how to stop the computer. 

10 PR. "TO STOP ME, PRESS BREAK" 

20 GOTO 10 

Unfortunately, we entered it as shown on the screen: 


NEW 


READY 

10 PR. "TO STOP ME, PRESS BREAK" 
20 GOTO 19 


Oops! 
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Well, you might expect some problems in running this program. The GOTO has 
no place to go - there is no line 19. Here is what happened when we ran the 
program. 

RUN 

TO STOP ME, PRESS BREAK 
ERROR- 12 AT LINE 20 


ERROR #12 is a "line not found " error. The computer could not find line 19 to go 
to. You will probably encounter this and many other errors as you work and play 
through this book. Nevermind - they are easy to fix. For a complete list of errors, 
visit Appendix G. 

We could fix line 20 by retyping it correctly. Instead, let's do it a different way. 
Find these keys: 



7] i 




You can use these keys, along with the CTRL * key, to move the cursor around 
the screen. 

* On the 600XL & 800XL, use the CONTROL key. 


Hold down CTRL and press 1 to move the cursor up the screen. 

Hold down CTRL and press | to move the cursor down the screen. 

Hold down CTRL and press — to move the cursor to the left. 

Hold down CTRL and press — to move the cursor to the right. 

Go ahead and try the keys. Move the cursor around. Perhaps you will notice that 
you can move the cursor past letters on the screen without changing them. 

Clear the screen and LIST the program: 


LIST 

10 PRINT 'TO STOP ME, PRESS BREAK" 
20 GOTO 19 


READY 
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Move the cursor up and over until it covers the 9 in 19: 


20 GOTO 




Type a zero (0) to correct the error. 


This is what you see: 


20 GOTO 10 


cursor 


One more thing. Press the RETURN key. The computer stores the corrected line 
20 in its memory. To see that this is true, clear the screen and LIST the program. 
Now suppose we have just entered the following program: 


10 PRINT "HAPPY BIRTHDAY, MOTER" 

20 GOTO 10 

■ > Oops! We meant MOTHER. 


Easy to fix. First, move the cursor up and over so it covers the E in MOTER 


10 PRINT "HAPPY BIRTHDAY, MOTi]R" 

Hold down the CTRL key and press ,NS ^ RT 

10 PRINT "HAPPY BIRTHDAY, MOTHER" 


The ER moved to the right, leaving a space under the cursor. Type the letter H and 
press RETURN. 


OK! 


10 PRINT "HAPPY BIRTHDAY, MOTHER" 
[2)0 GOTO 10 


Press the RETURN key again to move the cursor down to the first available open 
space, then LIST or RUN the program to see if it is OK. Enjoy your birthday, 
Mother! 
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Suppose the error was: 

10 PRINT "MERRY CHRISTMAS, FAATHER" 

Position the cursor under the second A in FAATHER. 

10 PRINT "MERRY CHRISTMAS, FARTHER" 

Hold down CTRL and press the DELETE key. The A under the cursor is erased and 
THER moves left one place. Everything is AOK - press RETURN. 

Now you know several ways to make corrections. EXPERIMENT! Try some of 
these little programs. When you type one of these programs, be sure to include the 
comma (,) or the semicolon (;) at the right end of the PRINT statement. 

(1) 10 PRINT "LUCY", 

20 GOTO 10 

(2) 10 PRINT "LUCY"; 

20 GOTO 10 

(3) 10 PRINT "LUCY M 
20 GOTO 10 L 

The comma (,) at the end causes a "tab" to the right of several spaces. The 
semicolon (;) causes things to be printed close together. Experiment: PRINT your 
names or messages. Try both commas and semicolons at the end of the PRINT 
statement. 

Questions_ 

1. Which program would produce the RUN shown below? 




PROGRAM A 


PROGRAM B 



20 PRINT " 
30 GOTO 20 


HA HA " 



HA HA HA HA HA HA HA HA HA HA HA HA 
HA HA HA HA HA HA HA HA HA HA HA HA 
HA HA HA HA 


and so on. 
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2. Teach the computer to cry. Write a program to fill the screen with BOO 
HOO. 



3. The following program is stored in memory. 


10 PRINT MACK LOVES JILK" 

20 GOTO 10 

Oops! That should say JACK LOVES JILL. Describe two ways to correct the 
program. 

(a) - 

(b) - 

Answers_ 

1. Program A produces the computer hilarity shown. The difference in the 
programs is the semicolon at the end of the PRINT statement in line 20 of 
program A. Program B produces a more subdued laughing computer, as 
shown below. 



2. We did it this way: 

10 PRINT n B00 HOO "; 

20 GOTO 10 

3. The error is in line 10. Line 20 is OK. 

(a) Retype line 10:10 PRINT "JACK LOVES JILL "and press RETURN. 

(b) Position the cursor over the K in JILK, type the correct letter (L), and 
press RETURN. 
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BRING OUT TH€ RRINBOUI 

You can put your name or message on colors of your choice, instead of good old 
GRAPHICS 0 blue. Try any of these v 

10 SETC0L0R 1,0,0 
20 SETC0L0R 2,4,8 
30 SETC0L0R 4,12,8 
40 PRINT "KARL" 

50 GOTO 40 

This results in dark letters on a pink screen with a green border. Change the 
colors: LIST the program, move the cursor to the line you want to change, and 
change it. 

Next, try a flickering screen, flickering between two colors. 



10 

SE. 

1,0,0 

Dark letters 

20 

SE . 

4,0,0 

Black border 

30 

SE. 

2,5,8 

Medium pink 

40 

PR. 

"LUCY " ; 


50 

SE. 

2,12,8 

Medium green 

60 

PR. 

"LUCY "; 


70 

GOTO 

30 



Experiment with different colors and luminances to get the kind of flicker you 
want. 

Instead of names and other messages, let's make some patterns on the screen. 
Your ATARI computer has a set of graphics characters. First, clear the screen. Hold 
down CTRL and press FT 



• VI 


A heart! 
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Clear the screen, then hold down the CTRL key and press [A T D and a couple of 
spaces. 



EXPERIMENT! To see the graphics characters, hold down the CTRL key and press 
any of these keys: 


' 0 1 W I E I R I T I Y ] 

M 1°M 

MLJMMML 

rfrr 


i - r-i 

1 * 1—1 


How do you remember where all those graphics characters are located on the 
keyboard? Relax, help is here. Consult the following keyboard chart. 


Baaaoaweao 


n+n r/ivMTkT 


K 
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Try these. Change only line 10. 


10 

PRINT 

"A"; 

CTRL 

10 

PRINT 

H i 'I . 

~ 5 

CTRL 

10 

PRINT 

n /~ V 11 • 

CTRL 


Band (3 

Q 

BBSS 


Of course, experiment. Make up your own patterns. Try some other colors. Use 
SETCOLOR 1 to make the graphics characters lighter or darker. Use SETCOLOR 2 
to change the background color. Use SETCOLOR 4 to change the border color. 

Or, include the colors of your choice as part of the program. 

10 SE. 1,0,10 
20 SE. 2,4,4 
30 SE. 4,7,8 
40 PR. "f" ; 

50 GOTO 40 



REMEMBER: The quickest way to change the program is to LIST it, 
move the cursor to the line you want to change, make the change, then 
press RETURN. 


Questions 


1. Below are two of the programs in this section. Draw arrows showing the 
order in which the computer obeys lines. 



RUN 




RUN 



10 

SETCOLOR 

1, 

o, 

0 

10 

SE. 

1 

,0,0 

20 

SETCOLOR 

2, 

4, 

8 

20 

SE. 

4 

,0,0 

30 

SETCOLOR 

4, 

12 

,8 

30 

SE. 

2 

,5,8 

40 

PRINT "KARL 


II . 

5 

40 

PR. 

II 

LUCY 

50 

GOTO 40 




50 

SE. 

2 

,12,8 






60 

PR. 

II 

LUCY 






70 

GOTO 

30 
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Write a program to put a "forest" on the screen. Use the "tree" on the same 
key as the semicolon (some people think of it as the "spade" symbol in card 
playing games). Also put two points (.) after the tree. When we ran our 
program, we saw the following on the screen: 


^ and 


so on 


Of course, make the scene green! 


Answers_ 

1. RUN 

10 SETC0L0R 1,0,0 

I 

20 SETC0L0R 2,4,8 
30 SETC0L0R 4,12,8 

I 

40 PRINT "KARL " 

t 

50 GOTO 40 - 


RUN 

I 

10 SE. 1,0,0 

I 

20 SE, 4,0,0 


30 SE. 2,5,8 

I 

40 PR."LUCY 

t 

50 SE. 2,12,8 

t 

60 PR. "LUCY "; 

t 

70 GOTO 30 - 


10 SE. 1,0,8 
20 SE. 2,12,12 
30 PR. "A. . " ; 
40 GOTO 30 


Medium green trees 
Light green screen. 


To get the tree (£ ), hold down CTRL and press 
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SOUND €FF€CTS 

Let's put some musical tones, noise, or sound effects into our programs. First, try 
this one: 


10 SOUND 0,91,10,10 First tone 
20 SOUND 0,121,10,10 Second tone 
30 GOTO 10 


You can use 
SO. instead 
of SOUND. 


RUN it. The computer plays the first tone, then the second tone, then the first 
tone, then the second tone, then the first tone, and so on until you press BREAK. 
However, unless you have supersharp superhero ears, you can't really hear the 
two tones distinctly - they run together. When you do press BREAK, one tone 
may continue. Press SYSTEM RESET to shut it off. 

We need a way to slow down the computer. We need a time delay after each 
sound. Here is another program, featuring two time delays: 


10 SOUND 0,91,10,10 

20 FOR Z=1 TO 100 -i ^ , 
30 NEXT Z J Time delay 


40 SOUND 0,121,10,10 


50 FOR Z=1 TO 100 
60 NEXT Z 


Time delay 


70 GOTO 10 


In lines 20 and 30, you see a FOR-NEXT loop, 


20 FOR Z = 1 TO 100 
30 NEXTZ 


This is a FOR-NEXT loop. 


This FOR-NEXT loop causes the computer to count from 1 to 100, very fast! 
However, it still takes a little time. While the computer is counting from 1 to 100, 
you hear tone #1. Then the computer goes on to line 40, turns on tone #2, and 
continues on to lines 50 & 60 - another FOR-NEXT loop. 


50 FOR Z = 1 TO 100 
60 NEXTZ 


Another FOR-NEXT loop. 
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The FOR statement tells the computer how far to count. 

FOR Z = 1 TO 100 

/ \ 

Count from here to here 

Enter and RUN the program. You will hear the two tones repeated again and 
again and again, and so on until you press BREAK. Hmmm...is it a fire truck, 
ambulance, or police car rushing to the scene? 

Change the numbers in the SOUND statements to get other tones, distortions, or 
volumes. Remember: 

SOUND 



voice pitch distortion volume 
(0 to 3) (0 to 255) (0 to 15) (0to15) 


Save typing time: Use SO. instead of SOUND. 

Also change the FOR statement to get longer or shorter time delays. For exam¬ 
ple: 

Shorter time delay: FOR Z = 1 TO 50 


Longer time delay: FOR Z = 1 TO 200 


Try shorter and shorter delays. For example, try FOR Z = 1 TO 10 or even FOR 
Z = 1 TO 1. Also try different delays following the two tones. For example, FOR 
Z = 1 TO 10 for one tone and FOR Z = 1 TO 40 for the other tone. EXPERIMENT! 

For now, use Z here FOR Z = 1 TO 100 
and here NEXT Z 

In the next chapter, you will learn more about Z and more things to do with FOR- 
NEXT loops. 
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Questions_ 

1. Draw arrows to show how the computer runs the program of this section. We 
include each time delay as a single item. 

RUN 

10 SOUND 0,91 ,10,10 

20 FOR Z=1 TO 100 
30 NEXT Z 

40 SOUND 0,121,10,10 

50 FOR Z=1 TO 100 
60 NEXT Z 

70 GOTO 10 

2. Add a third sound. Use frequency number 108. Include a time delay for your 
sound and a new GOTO to complete the loop. 


Answers 


l. 


RU 

N 


♦ 



10 

j, 

SOUND 

0 

T 

20 

FOR Z 

= 1 

30 

NEXT 

Z 

t 



40 

SOUND 

0 

1 



50 

FOR Z 

= 1 

60 

NEXT 

Z 

1 



70 

GOTO 

10 


91,10,10- 
TO 100 

121 , 10,10 
TO 100 
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2. We did it this way: Our line 70 replaces the GOTO of the old program, so we 
put a new GOTO in line 100. 


10 SOUND 0,91,10,10 —| 

20 FOR Z=1 TO 100 h— 1st tone and delay 

30 NEXT Z — 1 

40 SOUND 0,121,10,10—1 

50 FOR Z=1 TO 100 — 2nd tone and delay 

60 NEXT Z -J 

70 SOUND 0,108,10,10—, 

80 FOR Z=1 TO 100 — 3rd tone and delay 

90 NEXT Z — 1 

100 GOTO 10 Go do it again! 


SOUND, COLOR, & R BIT OF STYl€ 

Our programs are getting longer. In order to make them easier for people to read 
and understand, we will frequently include REMARK statements. REMARK 
statements are for people. They explain what is happening in a program, but the 
computer ignores them. The REMARK statement is abbreviated as REM. For 
example: 

100 REM SIREN PROGRAM #1 

To call attention to REM statements, we usually write them this way: 

200 REM**PLAY 1ST TONE & DELAY 
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Here again is our "siren " program with REMARK statements to explain what is 
happening. 


100 

REM* 

* S IREN 

PROGRAM #1 


110 

PR. 

CHR $ ( li 

25) 



200 

REM* 

*PLAY F 

r I RST 

TONE & 

DELAY 

210 

SO. 

0,91,10, 10 



220 

FOR 

2=1 TO 

100 



230 

NEXT 

Z 




300 

REM* 

*PLAY 1 

SECOND 

TONE & 

DELAY 

310 

SO. 

0,121,10,10 



320 

FOR 

Z=1 TO 

100 



330 

NEXT 

Z 




400 

REM* 

*G0 AROUND AGAIN 


410 

GOTO 

210 






Thanks to line 110, when the siren sounds you will see a completely blank 
screen, except for the cursor in its home position. 

This clears the screen: PR. CHR$(125) 

You will see many other uses of the CHR$ function in Chapter 10. For now, 
simply use it in a program to clear the screen. 

Add some color to our program by adding these two lines: 


215 SE. 2,3,4 
315 SE. 2,7,4 


red-orange 
azure blue 
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If you have already entered the program, you can add the two new lines simply 
by typing them. If you then LIST the program, you should see: 

LIST 

100 
1 10 
200 
210 
215 
220 
230 
300 
310 
315 
320 
330 
400 
410 

Since the computer ignores REMARK statements, the program will run just as 
well without them. Delete the REMARK statements like this: 

Type: 100 and press RETURN. 

Type: 200 and press RETURN. 

Type: 300 and press RETURN. 

Type: 400 and press RETURN. 

Now LIST the program and you will see that the REM statements are gone. RUN 
the program and you will see and hear the same as before. 


REM**C0L0R SIREN 
PRINT CHR$(125) 


We also changed the 
name of the program. 


REM**PLAY FIRST TONE & DELAY 


FOR Z=1 
EXT Z 


TO 



SOUND 0,121,10,10 

SETC0L0R 2,7,4 - 

FOR Z=1 TO 100 
NEXT Z 

REM**G0 AROUND AGAIN 
GOTO 210 


-L New line < 


REMEMBER. To delete a line (only that line), type the line number and 
press RETURN. 


Since REM statements are ignored by the computer, you may omit them when 
you enter a program. We will continue to use them, however, to help you read and 
understand our programs. 
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Questions_ 

1. Add a third color tone to the COLOR SIREN program. Begin at line 400 with a 
REM statement. You choose the tone number and the color. Also, remember 
to include a new GOTO to go back around. 

2. How do you delete a single line from memory, without changing any other 

line?_ 

3. Write a line to clear the screen:_ 

Answers_ 

1. We selected tone number 108 and the color green. 


400 

REM* 

*PLAY 

3RD TONE & DELAY 

410 

SO. 

0,108, 

10,10 

415 

SE. 

2,12,4 


420 

FOR 

Z=1 TO 

100 

430 

NEXT 

Z 


500 

REM* 

*G0 AR 

OUND AGAIN 

510 

GOTO 

210 



2. Type the line number and press RETURN. 

3. 100 PR. CHR$(125) 

You will learn more about the CHR$ function in Chapter 10. Here is another 
way to clear the screen: 


To get the "broken arrow" character, press ESC, then hold down either SHIFT 
or CTRL and press the CLEAR key. 

Still another way to clear the screen (and do lots of other things) is to begin 
the program with a GRAPHICS 0 line. For example: 

110 GR. 0 or 110 GRAPHICS 0 


This puts the computer in GRAPHICS 0 mode, thus clearing the screen. It 
also sets the color registers so that the screen colors are the same as if you had 
pressed SYSTEM RESET. Use PR. CHR$(125).when you want to clear the 
screen without changing anything else. 



64 ATARI BASIC, XL Edition 


NRM€ BUNK€R 


The following program causes Chewbacca's name to blink on, off, and so on 
until someone presses BREAK: 


100 

REM* 

*NAME 

BLINK 

ER 

110 

GR. 

0 - 


Start on GR. 0 with clear screen 

200 

REM* 

*NAME 

IS ON 

-SCREEN 

210 

PR. 

"CHEWBACCA" 


220 

FOR 

Z=1 TO 

500 


230 

NEXT 

Z 



300 

REM* 

*BLANK 

SCRE 

EN 

310 

PR. 

CHR$( 1 

25) - 

Or use PR.' 1 ' here 

320 

FOR 

Z=1 TO 

500 


330 

NEXT 

Z 



400 

REM* 

*G0 AROUND 

AGAIN 

410 

GOTO 

210 




Enter and RUN the program. You will see Chewbacca's name blinking in the 
upper left corner of the screen. Then, make some changes: 


120 SE. 1,0,0 
215 SE. 2,12,8 
315 SE. 2,4,8 


Dark letters 
Green screen 
Pink screen 


With the above additions, Chewey's name will blink in dark letters on a green 
screen. When his name is not on-screen, you will see a blank pink screen, except 
for the cursor. 
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If you make the previous changes and LIST the program, you should see this: 


LIST 


100 

REM**NAME 

BLINKER 

110 

GRAPHICS 0 


120 

SETC0L0R 1 

,0,0 

200 

REM**NAME 

IS ON-SCREEN 

210 

PRINT "CHE 

WBACCA" 

215 

SETC0L0R 2 

,12,8 

220 

FOR Z=1 TO 

500 

230 

NEXT Z 


300 

REM**BLANK 

SCREEN 

310 

PRINT CHR$ 

(125) 

315 

SETC0L0R 2 

,4,8 

320 

FOR Z=1 TO 

500 

330 

NEXT Z 


400 

REM**G0 AROUND AGAIN 

410 

GOTO 210 



Here is another name blinker program. We have added SOUND and we use a 
different method to blank out the screen. We make everything on-screen invisible 
by setting the foreground (printed information) and background (screen color) to 
the same luminance. 

100 REM**NAME BLINKER WITH SOUND 
110 GR. 0 

200 REM**NAME ON WITH SOUND 
210 PR. CHR$(125) 

220 SE. 1,0,0 
230 SE. 2,12,8 
240 PR."CHEWBACCA" 

250 SO. 0,121,10, 10 
260 FOR Z = 1 TO 500 
270 NEXT Z 

280 SO. 0,0,0,0 - This turns the sound off. 


(continued) 
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300 

REM* 

*BLANK 

SCREEN 

310 

SE. 

1,0, 

8 


320 

SE. 

2,4, 

8 - 


330 

FOR 

Z=1 

TO 

500 

340 

NEXT 

Z 



400 

REM* 

*G0 

AROUND AGAIN 

410 

GOTO 

210 




Lines 310 and 320 
make everything on the 
screen invisible 


Here is another way to write blocks 100 and 200. 


100 

REM 

* * 

NAME 

BLINKER 

• 1 10 

GR 

0 



120 

PR. 

II 

CHEWBACCA" 

200 

REM 

* ■ k 

INFO 

VISIBLE WITH SOUND 

210 

SE. 

1 

,0,0 


220 

SE. 

2 

,12,8 


230 

SO. 

0 

,121, 

10,10 

240 

FOR 

Z 

= 1 TO 

500 

250 

NEXT 

Z 


260 

SO. 

0 

V# 

O 

v# 

O 

V# 

0 


This is block 100. 


This is block 200. 


Blocks 300 and 400 remain the same as before. If you try this variation, also 
delete lines 270 and 280 in the previous version. 


To delete line 270, type: 270 and press RETURN. 
To delete line 280, type: 280 and press RETURN. 


Questions_ 

1. We used PR. CHR$( 125) to clear the screen. How else could we have done it? 


2. How do you make information on the screen invisible? 


3. How do you tell the computer to turn off the sound? 


4. How would you make CHEWBACCA blink more rapidly? 
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Answers_ 

1. Use PR. "H " To type the broken arrow (*| ), press ESC, then hold down 
either CTRL or SHIFT and press CLEAR. 

2. Use the same luminance for both the foreground and background. For 
example: 

310 SE. 1,0,8 Foreground, luminance 8. 

320 SE. 2,4,8 Background, luminance 8. 

3. Use SOUND 0,0,0,0 to turn off voice 0, SOUND 1,0,0,0 to turn off voice 1, 
and so on. 

4. Use a smaller number in the FOR statements. For example: 

FORZ = 1 TO 100 


S€IF-T€ST 


Congratulations! You have completed another chapter. Take this Self-Test to 
remind yourself about what you have learned in Chapter 3. 

1. Describe the result of using each of the following commands. 

(a) NEW_ 

(b) LIST_1_ 

(c) RUN_ 

2. Draw arrows to show how the computer obeys the following program. 

RUN 

10 PR. "LUCY" 

20 PR. "IS GREAT!" 

30 GOTO 20 
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3. When you enter a program for later use, you begin each line with a 


4. Describe what happens when you hold down the CTRL key and press each of 
the following keys. 



|c| Si 

idig| 




5. If you play a musical instrument, you know about scales. You may have 
spent many joyful (?) hours practicing scales on a piano, guitar, flute, or other 
instrument. And, if you saw "The Sound of Music," you know that it all 
begins with DO, RE, MI! Below are the tone numbers for DO, RE, MI in the 
scale of C. 

DO RE MI FA SOL LA TI DO 

121 108 96 91 81 72 64 60 

Write a program to display and play one note at a time. For DO for a little 
while, then RE, and so on. We have begun the program for you. At the end of 
the program, use a GOTO 210 to start over. 

100 REM**D0, RE, MI, ETC. 

110 GR. 0 

200 REM**PRINT & PLAY DO 
210 PR. CHR$(125) 

220 PR. "DO" 

230 SO. 0,121,10,10 
240 FOR Z=1 TO 500 
250 NEXT Z 
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6. Modify the program of Question 5 so the screen is a different color for each 
note. 

Rnswers to Self-Test 

1. (a) NEW erases any programs in memory (RAM). 

(b) LIST prints on the screen the program in memory (RAM). 

(c) RUN tells the computer to carry out, do, or obey the program in memory 
(RAM). 

2. RUN 

1^ PR. "LUCY" 

♦ 

20 PR. "IS GREAT! -. 

t 

30 GOTO 20- 1 

3. line number. 

4. (a) Moves the cursor up one line. 

(b) Moves the cursor down one line. 

(c) Moves the cursor left one space. 

(d) Moves the cursor right one space. 

(e) Erases the character under the cursor and moves everything to the right 
of the cursor one space left. 

(f) Moves the character beneath the cursor and everything to the right of the 
cursor one space right. Puts a space under the cursor. 

5. Here is the rest of our program. 


300 

REM* 

*PR 

INT & 

PLAY RE 

310 

PR. 

CHR 

$(125) 


320 

PR. 

"RE 

II 


330 

SO. 

0,1 

08,10, 

10 

340 

FOR 

Z = 

1 TO 

500 

350 

NEXT 

Z 




(continued) 
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400 REM**PRI NT & PLAY MI 
410 PR. CHR$(125) 

420 PR. "MI" 

430 SO. 0,96,10,10 
440 FOR Z=1 TO 500 
450 NEXT Z 

500 REM**PR I NT & PLAY FA 
510 PR. CHR$(125) 

520 PR. "FA" 

530 SO. 0,91,10,10 
540 FOR Z=1 TO 500 
550 NEXT Z 

600 REM**PRINT & PLAY SOL 
610 PR. CHR$(125) 

620 PR. "SOL" 

630 SO. 0,81,10,10 
640 FOR Z=1 TO 500 
650 NEXT Z 

700 REM**PRINT & PLAY LA 
710 PR. CHR$(125) 

720 PR. "LA" 

730 SO. 0,72,10,10 
740 FOR Z=1 TO 500 
750 NEXT Z 

800 REM**PRINT & PLAY TI 
810 PR. CHR$(125) 

820 PR. "TI" 

830 SO, 0,64,10,10 
840 FOR Z=1 TO 500 
850 NEXT Z 


(continued) 
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900 REM**PRI NT & PLAY DO 
910 PR. CHR$(125) 

920 PR. "DO" 

930 SO. 0,60.10,10 
940 FOR Z=1 TO 500 
950 NEXT Z 

1000 REM**GO AROUND AGAIN 
1010 GOTO 210 


6. We leave this one entirely to you. 


= Chapter 

= Four — IJVIliVy L 

— I J c 

— P t l| Y Kx 

— |#VAV J 


As you learn more about ATARI BASIC, you will find it easier to get the computer 
to do what you want it to do. In this chapter you will learn about places in the 
computer's memory which we call number boxes. Think of number boxes as places 
to store numbers or as place holders where numbers can be stored while the 
computer uses them. 

Number boxes are identified by labels called numeric variables. You will use 
numeric variables to represent numbers in BASIC programs. You will learn three 
ways to put numbers into number boxes, or assign values to numeric variables. 

When you finish this chapter, you will be able to: 

• Recognize and use numeric variables 

• Assign values to numeric variables 

• Use numeric values in SOUND and SETCOLOR to produce sound and 
color effects 

• Use INPUT statements to enter values of numeric variables 

• Use READ and DATA statements to supply values of numeric variables 

Soon you will get the computer to do more while you do less! 


26 BOX€S 


Imagine that, deep down inside the computer, there are 26 little number boxes. 
Each number box can hold one number at any one time. 


A 

7 

H 


0 


B 

5 

1 


P 


C 

8 

J 


Q 


D 

10 

K 

1 

R 


E 


L 


S 


F 


M 


T 

121 

G 


N 

0 

U 



V 

w 

X 

Y 

z 


72 
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Some of the boxes have numbers in them. For example, 7 is in box A and 5 is in 
box B. The letters that identify boxes (A,B,C, and so on) are called variables. The 
number in box A is called the value of A] the number in box B is the value ofB ; the 
number in C is the value of C; and so on. 

• The value of A is 7. 

• The value of B is 5. 

• The value of T is 121. 


Number boxes can hold numbers only. The labels on number boxes (A,B,C, etc.) 
are sometimes called numeric variables. 

Later you will also learn about string boxes, which can hold...(sus¬ 
pense)...strings! And you will also learn about string variables, whose values are 
strings. 

How do you put numbers into number boxes? It's easy! 


• Clear the screen 

• Type: A = 7 and press RETURN. 



The computer has put the number 7 into box A. Or, the computer has assigned 
the value 7 to the variable A. Note how you did this. 





The command A = 7 tells the computer to put the number 7 into number box A. 
In other words, the command A = 7 tells the computer, "Assign the number 7 as 
the value of the variable A. " 



Assign this value 
to this variable 
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Is the number 7 in number box A? Find out. Clear the screen. 

Type: PRINT A and press RETURN. 

The screen should read: 

/^PRINTA 

7 

READY 


If you forgot to clear the screen before typing PRINT A, the screen might now 
read: 



READY 
PRINT A 
7 

READY 


REMEMBER: To tell the computer to print the number that is in 
number box A (or to print the value of variable A), you type: 


PRINT R 


Next, assign the number 121 to the variable T and then print the value of T. The 
screen might read: 


You type: 



T = 121 


You type: 
It prints: 


READY 

PRINTT 

121 


READY 
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Note the difference between the two PRINT statements below. 


WITH" WITHOUT" 


PRINT "T" 


PRINT T 

Tells the computer to print the string T 

I 

Tells the computer to print the value 

which is enclosed in quotation marks. 

1 

of the variable T. 


You type: PRINT "T" You type: PRINT T 

It prints: T It prints: 121 

Questions_ 

1. Some numbers are stored in number boxes: 


A 

B 

C 

D 

E 

F 

G 


7 

H 


0 


5 

1 


P 


8 

J 


Q 


10 

K 

1 

R 



L 


S 



M 


T 

121 


N 

0 

U 




(a) What number is in box T?_ 

(b) What number is in box D?_ 

(c) What box contains the number 1?_ 

(d) What box contains the number 8?_ 

(e) What box contains zero (0)?_ 

(f) You put the number 100 into box Z. 

(g) What is the value of the variable A? 

(h) What number is the value of K?_ 
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2. Boxes C and T are shown below. They are empty. Use a pencil to do the 
following. 

c ( 

(a) Put 3 into box C. 

(b) Put 89 into box T. 

(c) Put 125 into box T. But wait! A box can hold only one number at a time. 
Before you can put 125 into box T, you must first erase the 89 that you put 
there previously. 

3. Pretend you are the computer and complete the following: 

(a) You type: Z = 37 (b) You type: P = 12 

You type: PRINT Z You type: P = 88 

It prints:_ You type: PRINT P 

It prints: _ 

(c) You type: A = 7 (d) You type: C = 46 

You type: B = A Youtype: PRINT "C" 

You type: PRINT B It prints:_ 

It prints: _ 

Answers _ 

1. (a) 121; (b) 10; (c) K; (d) C; (e) N 

(f) Box Z should now look like this: Z 100 

(g) 7; (h) 1 

2. (a) Cm ; (b) T |~89~] ; (c) T [T25~ 

When the computer puts a number into a box, it first erases the previous 
number (if any) that was in the box. 

3. (a) 37; (b) 88; (c) 7; (d) C 

In (b), the 88 replaced the number 12 as the value of P. In (c), the command 
B = A assigned the value of A as the value of B. In (d), watch those quotation 
marks! 
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SOUND €FF€CTS 

In Chapter 3, you used FOR-NEXT loops as a time delay. For example, the 
following FOR-NEXT loop tells the computer to count from lto 100. 

Start here Stop here 



220 FOR Z = 1 TO 100 
230 NEXT 

As the computer counts from 1 to 100, each counting number is put, momen¬ 
tarily, into number box Z. Instead of Z, you can use any numeric variable. For 
example: 

220 FOR T= 1 TO 255 
230 NEXTT 


Now comes the boggier. You can put other statements between the FOR state¬ 
ment and the NEXT statement. Try this program. 


10 GR. 0 


20 FOR T = 1 TO 255 
30 SO. 0,T,10,10 
40 NEXT T 



From now on we will 
usually begin program with 
GR. 0. 

This FOR-NEXT loop has 
three statements. 


In the above FOR-NEXT loop the SOUND statement (line 30) is between the FOR 
statement and the NEXT statement. 
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The variable T is used in three places, in the FOR statement, the SOUND 
statement, and the NEXT statement. As T goes from 1 to 255, the sound will go 
from high to low. Try it. Enter and RUN the program. Then add this line to hear the 
entire sequence of sounds repeat until you press SYSTEM RESET. 


Add this line: 50 GOTO 20 


Next, try this one, which makes the sound go from low to high. Change only line 
30. 

10 GR. 0 

20 FOR T =1 TO 255 
30 SO. 0,255-T, 10, 10 
40 NEXT T 
50 GOTO 20 

Line 30 has a little arithmetic. As T goes from 1 to 255, the value of 255-T goes 
from 254 to 0. This gives tones from a low tone (254) to a high tone (1) to no tone (0). 


T 

255-T 

1 

254 

2 

253 

3 

252 

254 

• 

1 

255 

0 



Using two voices, we can combine these effects, with one voice going from high 
tone to a low tone while the other voice goes from a low tone to a high tone. 


10 

GR. 

0 



20 

FOR 

T = 1 

TO 

255 

30 

SO. 

0»T, 

10, 

10 

40 

SO. 

1,25 

5-T 

,10,10 

50 

NEXT 

T 



60 

GOTO 

20 
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EXPERIMENT! Instead of having T go from 1 to 255, try one of these: 


20 FOR T = 1 TO 100 
20 FOR T =100 TO 255 
20 FOR T = 50 TO 100 


T goes from 1 to 100. 

T goes from 100 to 255. 
T goes from 50 to 100. 


Or use numbers of your choice. Then change line 20 as follows: 



This FOR statement tells the computer to count from 1 to 255 by steps of 2. T is 
equal to 1, then 3, then 5 ( then 7, and so on, up to 255. Run any of the programs with 
this change and listen to the SOUND. Then change line 20 again, so the computer 
counts in steps of 4. 

20 FOR T = 1 TO 255 STEP 4 

Also try steps of 8 or 16 or whatever you want. 


Questions_ 

1. Describe what will happen if you run the following program. 


10 

GR. 0 


20 

FOR L = 1 TO 

15 

30 

SO. 0,121, 

10,L 

40 

NEXT L 


50 

GOTO 20 
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2. Change the program in question 1 so the loudness (L) goes from 15 to 0 in 

steps of - 1___ 

3. Describe what happens if you run the following program. 


10 

GR. 0 



20 

FOR T=1 

TO 

200 

30 

SO. 0, T, 

10, 

10 

40 

SO. 1,T+ 

20, 

10 , 

50 

NEXT T 



60 

GOTO 20 




4. Change the program in question 3 so the tone (T) goes from 200 to 1 in steps of 
- 1 . 

5. Write a program to cause the tone (T) to go from 1 to 255, then back down to 
1, then up to 255, then down to 1, and so on. 


Answers 


1. Line 10 puts the computer in GRAPHICS 0 mode and clears the screen. The 
FOR-NEXT loop (lines 20,30,40) sounds tone number 121 with loudness (L) 
going from 1 (soft) to 15 (loud). Line 50 causes the sound to repeat. Try this: 
put a time delay between line 30 and line 40. 


10 

GR. 0 



20 

FOR L=1 

TO 

15 

30 

SO. 0,1 

21,1 

0, L 

35 

FOR Z=1 

TO 

200 

37 

NEXT Z 



40 

NEXT L 



50 

GOTO 20 




Time delay 


Also try shorter or longer delays. 
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2. Change only line 20, like this: 20 FOR L = 15 TO 0 STEP -1 

3. You hear two voices going from high notes to low notes. Voice 0 starts at T = 1 
and goes to T = 200. Voice one starts at 21 (1 +20) and goes to 220 (200 + 20). 

4. Change only line 20: 20 FOR T = 200 TO 1 STEP - 1 

5. 10 GR.O 
20 FOR T = 1 TO 255 
30 SO. 0,T, 10,10 
40 NEXT T 

50 FOR T = 255 TO 1 STEP -1 
60 SO. 0,T, 10, 10 
70 NEXT T 
80 GOTO 20 


TURN ON TH€ RRINBOUJ 

You can make the screen change color rapidly, or slowly if you prefer, by using 
SETCOLOR with FOR-NEXT. But first, here is a time-saving way to write a time 
delay. 

FORZ = 1 TO 100: NEXTZ 


Put a colon 
here. 


Yes, you can put two or more statements on a line as long as you separate them 
with colons. 


FOR Z = 1 TO 100: NEXT Z 



1st statement 2nd statement 



colon 



82 ATARI BASIC, XL Edition 


We will use this idea in the program below to tell the computer to flash the colors 
from 0 to 15. 


10 GR. 0 
20 FOR C=0 
30 SE. 2,C 
40 FOR Z=1 
50 NEXT C 
60 GOTO 20 


TO 

8 

TO 


15 


200 : 


EXT Z 



Lines 30 and 40 are both between the FOR statement in line 20 and the NEXT 
statement in line 50. Therefore, lines 30 and 40 are done for each value of C from 
C = 0 to C = 15. 

From now on, we will indent statements inside FOR-NEXT loops two spaces. 
We do this simply to make programs easier for people to read. The computer 
ignores the spaces — it won't show them when you LIST the program. 


10 

6R. 0 

• 

20 

FOR C=0 TO 15 

Beginning of loop 

30 

40 

SE. 2 , C , 8 

FOR Z=1 TO 200: NEXT Z 

Inside of loop 
is indented 

50 

NEXT C 

End of loop 

60 

GOTO 20 



In the above program, we indented the inside of the loop and added extra line 
spaces to make (we hope) the program easier for you to read and understand. 
However, if you type the program as shown above, the computer ignores the extra 
line space and the indentation. 

Next, a program to Hade in" a name in and out. This program works by slowly 
changing the luminance of the name on the screen. At first, in lines 210 and 320, 
the foreground (name) and the background have the same luminance — therefore, 
the name is invisible. Block 400 slowly changes the luminance of the foreground 
from 0 to 15; the name "fades in." Then block 500 slowly changes the foreground 
luminance from 15 to 0; the name fades out. This happens on a dark gray screen. 
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100 REM**NAME FADER 
110 6R. 0 

200 REM**SET BACKGROUND COLOR 
210 SE. 2,0,0 

300 REM**PRINT NAME INVISIBLY 

310 SE. 1,0,0 

320 PR. "TENDERHEART" 



400 REM**MAKE NAME SLOWLY VISIBLE 
410 FOR L = 0 TO 15 

420 SE. 1,0,L 

430 FOR Z=1 TO 30: NEXT Z 
440 NEXT L 

500 REM**MAKE NAME SLOWLY INVISIBLE 
510 FOR L = 15 TO 0 STEP -1 
520 SE. 1,0,L 

530 FOR Z=1 TO 30: NEXT Z 

540 NEXT L 

600 REM**G0 DO IT AGAIN 
610 GOTO 410 


Your turn — try some variations. Fade in and out on a white screen. Make these 
changes: 

210 SE. 2,0, 15 

310 SE. 1,0,15 

410 FOR L = 15 TO 0 STEP -1 

510 FOR L =0 TO 15 


Keep the foreground luminance constant and fade the background luminance. 
Change the program as follows: 

210 SE. 2,0,0 
310 SE. 1,0,0 
420 SE. 2,0,L 
510 FOR L = 15 TO 0 STEP -1 
520 SE. 2,0,L 
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You may use 16 colors (0 to 15) and each color may have a luminance from 0 
(darkest) to 15 (brightest). Well, actually there are eight distinct luminances: 0 and 1 
are the same, 2 and 3 are the same, and so on. Let's ask the ATARI to flash all 
combinations of color and luminance. 


100 

REM**C0L0R 

& 

L 

UMINANC 

E 

110 

GR. 0 






200 

REM**C = 

COLOR 

& 

L = LUMI 

NANCE 

210 

FOR C=0 

TO 

15 




220 

FOR L 

= 0 

TO 

1 

5 


230 

SE. 

2, 

C, L 




240 

FOR 

Z = 

1 TO 

100: N 

EXT Z 

250 

NEXT 

L 





260 

NEXT C 






300 

REM**G0 

DO 

IT 


AGAIN 


310 

GOTO 21 

0 






Here we have a FOR-NEXT using L nested inside a FOR-NEXT loop using C. 
There is also a FOR-NEXT loop using Z included as part of the inside loop. 
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In the inside loop, lines 230 and 240 are carried out for L going from 0 to 15 for 
each value of C in the outside loop. It's like a wheel within a wheel. 

C L 

0 0 

1 

2 



Add some sound: 

235 SO. 0,C*L + 1,10,10 

The expression C*L + 1 means "C times L plus 1." See Appendix B for detailed 
information on arithmetic. 
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Questions_ 

1. If you put two statements on one line, what must you put between the 
statements?___ 

2. Complete the following programs to flash the hues (colors) from 15 to 0. 

10 PR_ 

20 FOR_ 

30 SE.2,H,8 

40 FOR Z=1 TO 200:NEXTZ 

50 NEXT_ 

60 G0T02Q 


3. To the program in question 2 above, add line 35 to tell the computer to 
"sound-off. " In your SOUND statement, make the frequency number equal 
to the square of the hue (H*H). 

35 


4. In the COLOR & LUMINANCE program, make the frequency number equal 
to 255-C*L. The expression 255-C*L means "255 minus C times L." 

235_ 

5. Add sound to the NAME FADER program. 

6. EXPERIMENT! Try other distortion numbers in the SOUND statements. 
Make the distortion depend on the color or the luminance. 

Answers_ 

1. A colon):). 

2. 10 6R. 0 

20 FOR H = 15 TO 0 STEP -1 
50 NEXT H 

Since we used H as the hue (color) variable in the SETCOLOR statement (line 
30), you must use H in the FOR and NEXT statements. 
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3. 35 SO.0,H*H,10,10 

4. 235 SP.0,255-C*L,10,10 

5,6. Experiment with different ways to do this. Also play with loudness. Try using 
two or more voices. Change the time delay or even delete it. EXPERIMENT! 
Your ATARI computer and your own imagination are your best and always- 
ready teachers. 

use INPUT TO STUFF NUMBER BOXES 

The INPUT statement is very useful for box stuffing. The following program 
introduces the INPUT statement. 

10 
20 
30 
40 

WvW- 

Enter the above program, type RUN, and press the RETURN key. 


GR. 0 
INPUT T 
PRINT T 
GOTO 20 




The computer is doing the INPUT statement. The statement: 20 INPUT T tells 
the computer: 


type a question mark; 
turn on the cursor; 

wait for someone to type a number. When you type a number and press 
RETURN, the computer puts the number into box T and goes on to the next 
statement in line-number order. 


( 1 ) 

( 2 ) 

(3) 
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Type 121 and press RETURN. The screen looks like this: 



The computer wants another number, a new value for T. Cooperate with your 
ever-patient computer. Type 108 and press RETURN. 


You entered 121 as the value of T. 
It printed the value of T. 

You entered 108 as the value of T. 
It printed the value of T. 



What? It wants still another number? How do you tell the computer to stop? 
Press the BREAK key. 

Why does the computer keep asking for a value of T? Follow the arrows. 

10GR.O 

I 

20 INPUT T- 

i 

30 PRINTT 

I 

40 GOTO 20 

The computer goes from line 20 to line 30 only after you type a value of T and 
press RETURN. This value replaces the previous value of T. 




OUT WITH THE OLD 

THAT'S WHAT INPUT CAN DO FOR YOU. 


IN WITH THE NEW 
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You can use the INPUT variable in a SETCOLOR statement. In line 40 below, 
we use the variable C for "Color." 

10 GR. 0 
20 INPUT C 

30 SETCOLOR 1, 0 5 0 We want black letters. 

40 SETCOLOR 2, C, 8 Set background color. 

50 GOTO 10 

C for Color. 


Try it. Enter the program and RUN it. 



Try a green screen. Type 12 and press RETURN. 



Try any color number from 0 to 15. Also try 16,17, and so on. You will see that 16 
is the same color as zero, 17 the same as one, and so on. Remember, the actual 
colors depend on the color settings on your TV. 

EXPERIMENT! Change line 40 to: 40 SETCOLOR 4,C,8 Now you can enter 
numbers to change the border color of the screen. 

You can use an INPUT variable in a SOUND statement. 

10 GR. 0 
20 INPUT N 
30 SOUND 0,N,10, 10 
40 GOTO 20 

A RUN might go like this: 



Waiting for a value of N. 


Enter 121 and press RETURN. 


7121 


You hear note number 121. 

The computer waits for another note, 
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Enter 108 as the next value of N. 

r 

? 121 

?1 08 You now hear note number 108. 

?■ 

Suppose you enter 96 as the next value of N. The screen should appear as 
follows: 



Experiment! Try low notes (N = 255) r higher notes (N = 100), still higher notes 
(N = 10). Type note numbers and press RETURN as fast as you can. Is it music? 

The INPUT statement causes the computer to put a question mark on the 
screen, then wait for someone to enter something. Wouldn't it be nice if, instead of 
just a lonely question mark, the computer would also tell you what it wanted? 
Easy! Use a Print statement to tell what is wanted. 


10 GR. 0 

20 PR. 11 NOTE NUMBER"; 
30 INPUT N 
40 SOUND 0,N, 10, 10 
50 GOTO 20 




As usual, to find out what a program does, enter it into the computer and RUN it. 



NOTE NUMBER? ■ 
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Now you know what the computer wants! Enter several notes, one after the 
other. For example: 


XnOTE NUMBER7121 
NOTE NUMBER?"!08 
NOTE NUMBER796 
NOTE NUMBER791 
NOTE NUMBER781 
NOTE NUMBER? ■ 


When you are tired of entering note numbers, press the BREAK key to stop the 
program. Oh, the sound is still on? 


Type END and press RETURN, or 
Press the SYSTEM RESET key. 


We have been using single letters as variables. We confess — we didn't tell the 
whole truth about variables. You can use more than a single letter as a variable. 
For example, 


NF 


NL 


SS 


TD 


The above variables appear in the following program. 

100 REM**S0UND EXPERIMENTER 
110 GR. 0 

200 REM**GET INFORMATION 
210 PR. CHR$( 125) 

220 PR. "FIRST NOTE";: INPUT NF 
230 PR. "LAST NOTE";: INPUT NL 
240 PR. "STEP SIZE";: INPUT SS 
250 PR. "TIME DELAY";: INPUT TD 

300 REM**PLAY THE NOTES 
310 FOR N=NF TO NL STEP SS 
320 SO. 0,N,10,10 
330 FOR Z=1 TO TD: NEXT Z 
340 NEXT N 

400 REM**TURN OFF SOUND & GO AROUND 
410 SO. 0,0,0,0 
420 GOTO 210 
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Lines 220, 230, 240 and 250 each contain two statements. For instance: 

220 PR. "FIRST NOTE";: INPUT NF 

'-p— —7“" 

1st statement 2nd statement 

colon 

We ran the program and supplied the following values for NF, NL, SS, and TD. 


( FIRST NOTE7255 
LAST NOTE71 
STEP SIZE?-1 

TIME DELAY710 ■ -Before pressing RETURN 

After we pressed RETURN, the computer played the notes 255, 254, 253, and so 
on down to 1, then politely inquired: 


I FIRST NOTE? ■ 

Go ahead and experiment with this program. 

IMPORTANT NOTICE: A variable name may be up to 120 characters long! It 
must begin with a letter A to Z and may contain only capital letters and numbers 0 
to 9. We suggest you do not use a special ATARI BASIC word such as PRINT or 
FOR or GOTO as a variable or as the first part of a variable. See Appendix F for a 
complete list of special ATARI BASIC words. 

Questions__ 

1. Write a program to ask for the background color (BKC) and background 
luminance (BKL), border color (BRC) and border luminance (BRL), and 
foreground luminance (FL). Then set the screen to these colors and go around 
again. Here is an outline of our program. 

100 REM**SCREEN COLORS & LUMINANCES 
200 REM**GET INFORMATION 
300 REM**SET BACKGRND, BORDER, F0REGRND 
400 REM**G0 AROUND AGAIN 
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2. Write a program to play a "color chord" using three voices. When you run 
your program, it should begin this way: 

1ST VOICE NOTE7121 
2ND VOICE NOTE796 
3RD VOICE NOTE760 
BACKGROUND COLOR75 

TIME DELAY7100 I — Before pressing RETURN 

Press RETURN and hear the chord on a purple screen. Musicians call a 
three-note chord a triad. 




Answers 


1. 100 REM**SCREEN COLORS & LUMINANCES 

110 GR.0 

200 REM**GET INFORMATION 

201 PR. CHR$(125) 

220 ? "BACKGROUND COLOR";:INPUT BKC 
230 ? "BACKGROUND LUMI NANCEINPUT BKL 
240 ? "BORDER COLORINPUT BRC 
250 ? "BORDER LUMINANCEINPUT BRL 
260 ? "FOREGROUND LUMINANCEINPUT FL 

300 REM**SET BACKGRND, BORDER, FOREGRND 
210 SE. 2, BKC, BKL 
320 SE. 4, BRC, BRL 
330 SE. 1, 0, FL 

400 REM**G0 AROUND AGAIN 
410 GOTO 210 


In lines 220 through 260, we used a question mark (?) as an abbreviation for 
PRINT. There is also an abbreviation for INPUT. 


IN. is the abbreviation for INPUT 
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2. 100 REM**C 0L0R CHORD 

110 GR. 0 

200 REM**GET INFORMATION 
210 PR. CHR$( 125) 

220 PR. '‘1ST VOICE NOTE";: IN. N1 

230 PR. "2ND VOICE NOTE";: IN. N2 

240 PR. "3RD VOICE NOTE";: IN. N3 

250 PR. "BACKGROUND COLOR";: IN. BKC 


260 

PR. 

"TIME 

DELA 

Y";: IN. 

TD 

300 

REM* 

* PLAY 

THE 

CHORD 


310 

SE. 

2, BKC 

, 8 



320 

SO. 

0, N 1 , 

10, 

10 


330 

SO. 

1, N2, 

10, 

10 


340 

SO. 

2, N3, 

10, 

10 


400 

REM* 

• 

* TIME 

DELAY 


410 

FOR 

Z= 1 TO 

TD: 

NEXT Z 


500 

REM* 

*TURN 

OFF 

THE VOICE 

S 

510 

SO. 

0,0,0, 

0 



520 

SO. 

1,0,0, 

0 



530 

SO. 

2,0,0, 

0 



500 

REM* 

*G0 PLAY A 

NOTHER ON 

E 

610 

GOTO 

210 





US€ R€AD RND DATA TO STUFF NUMB€R 
BOX€S 

There is yet another way to stuff numbers into number boxes, or — in 
computerese — assign values to numeric variables. Use READ and DATA state¬ 
ments, as shown in the following program. 

10 GR. 0 

20 READ N- This is a READ statement. 

30 PRINT N 
40 GOTO 20 

50 DATA 1, 22, 333 - 


This is a DATA statement. 
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The statement: 20 READ N tells the computer to read one number from a DATA 
list and put the number into box N (assign the number as the value of N). Every 
time 20 is executed, the next number in the DATA list is read and assigned as the 
value of N. 

This is how the screen looks when you RUN the program: 


1 

22 

333 

ERROR- 6 AT LINE 20 


The error message really means "Out of data in line 20." There are three 
numbers in the DATA statement. The computer read and printed all three num¬ 
bers, then tried to read a fourth number. Since there are only three numbers in the 
DATA statement, it printed an error message. That's OK, since it was finished 
doing what we wanted it to do. 

Look at the DATA statement in line 50. Commas separate the numbers in the 
list. 


50 DATA 1,22, 333 

/ w 


No comma Commas between 
here. numbers. 


No comma 
here. 


READ and DATA statements make it easy to play music. Here is a program to 
play a DO, RE, MI scale in the key of C. 


100 

REM**READ 

& DATA 

MUSIC 

110 

GR.O 



200 

REM**READ 

A NOTE 

NUMBER 

210 

READ N 



300 

REM**P LAY 

THE NOTE 

310 

SO. 0, N,10 

,10 


320 

FOR Z=1 TO 

128: 

NEXT Z 

330 

SO. 0,0,0, 

0 



(continued) 
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400 REM**G0 FOR ANOTHER NOTE 
410 GOTO 210 

900 REM**HERE ARE THE NOTES 
910 DATA 121,108,96,91 
920 DATA 81, 72, 64,60 


We intentionally used two DATA statements to hold the numbers, but we could 
have put all the numbers in one DATA statement, as follows: 

910 DATA 121,108,96,91,81,72,64,60 


Or, you may use three DATA statements, or four, or more, if you wish. Want to 
have the computer play a tune? Put as many tone numbers as you wish for the tune 
in DATA statements. 

VARIATION: Change block 200 of the program, as follows: 

200 REM**READ & PRINT NOTE 
210 READ N 
220 PRINT N 


And now, a little familiar music — Mary Had a Little Lamb in the scale of C. Here 
is the music (We have added the note letters and numbers): 


EDCDEEEDDDEGG 
47 53 60 53 47 47 47 53 53 53 47 40 40 






Mar-y 


had a 


lit- tie lamb, 


lit- tie lamb, lit-tie lamb, 


EDCDEEEEDDFDC 
47 53 60 53 47 47 47 47 53 53 45 53 60 



Mar-y had a lit-tie lamb, its fleece was white as snow. 
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For each note, we also need a time delay. In the above melody, there are quarter- 
notes (f ), half-notes (p ), and whole-notes (o). We will use time delays for these 
as follows: 


TYPE OF NOTE 

TIME DELAY 

quarter (p) 

128 

half (P) 

256 

whole(o) 

512 


A half-note is twice as long as a quarter-note and a whole-note is twice as long as 
a half-note and four times as long as a quarter note. In our program, we put both 
the note numbers and time delays in DATA statements. Our READ statement (line 
210) reads both the note number and the time delay. We will explain the READ 
statement later, after you enter and run the program. 


100 REM**PLAY A TUNE #1 
110 PR. CHR$(125) 

300 REM**READ NOTE & TIME DELAY 
310 READ N, TD 

500 REM**PLAY THE NOTE 
510 SO. 0 , N , 1 0,10 
520 FOR Z=1 TO TD: NEXT Z 
530 SO. 0,0,0,0 

600 REM**G0 FOR ANOTHER NOTE 
610 GOTO 310 

900 REM**N0TE NUMBERS & TIME DELAYS 
910 DATA 47,128,53,128,60,128,53,128 
920 DATA 47,128,47,128,47,256 
930 DATA 53,128,53,128,53,256 
940 DATA 47,128,47,128,40,256 
950 DATA 47,128,53,128,60,128,53,128 
960 DATA 47,128,47,128,47,128,47,128 
970 DATA 53,128,53,128,45,128,53,128 
980 DATA 60,512 
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You can make the melody play faster or slower by changing the time delays. 
However, there is a better way. Here is another version of Mary Had a Little Lamb. 

100 REM**PLAY A TUNE #2 
110 GR. 0 

200 REM**READ TEMPO (HOW FAST TO PLAY) 

210 READ TEMPO 

300 REM**READ NOTE & TYPE OF NOTE (TN) 

310 READ N, TN 

400 REM**C0MPUTE TIME DELAY (TD) 

410 TD = TEMPO/TN 

500 REM**PLAY THE NOTE 
510 SO. 0,N,10, 10 
520 FOR Z=1 TO TD: NEXT Z 
530 SO. 0,0,0,0 

600 REM**G0 FOR ANOTHER NOTE 
610 GOTO 310 

900 REM**TEMP0, NOTES & TYPES 
910 DATA 512 

920 DATA 47,4, 53,4, 60,4, 53,4 

930 DATA 47,4, 47,4, 47,2 

940 DATA 53,4, 53,4, 53,2 

950 DATA 47,4, 47,4, 40,2 

960 DATA 47,4, 53,4, 60,4, 53,4 

970 DATA 47,4, 47,4, 47,4, 47,4 

980 DATA 53,4, 53,4, 45,4, 53,4 

990 DATA 60,1 
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Line 210 reads the tempo which is the speed at which the melody is played. The 
tempo number is in the first DATA statement, line 910. To play faster, use a smaller 
tempo number; to play slower, use a larger tempo number. In lines 920 through 
990, each note has a note number (N) and a type of note (TN) number. 


TYPE OF NOTE 

TN 

whole note (o) 

1 

half note (p) 

2 

quarter note ((») 

4 


TEMPO and TN are used in line 410 to compute the time delay: 

410 TD = TEMPO/TN 

/ \ \ 

Time Delay equals TEMPO divided by Type of Note 


REMEMBER: To tell the computer to divide, use the "slash" key (/). For 
detailed information on arithmetic, see Appendix B. 


Questions_ 

1. In the program called READ & DATA music, add a line to set the background 
color of the screen equal to the note number. 

315 


2. In the program called PLAY A TUNE #1, add two lines to set the background 
and border colors as follows: 

Background color = Note number (N) 

Border color = Time delay divided by 16 
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3. In the program called PLAY A TUNE #2, the TEMPO number in line 910 is 
512. Show the time delay (TD) for each type of note. 


TYPE OF NOTE 

TN 

TD 

whole note 

1 


half note 

2 


quarter note 

4 



Rnswers_ 

1. 315 SE. 2,N,8 

Also try: 315SE.2,N,N 

315SE. 2,N,N/16 
and so on — EXPERIMENT! 


2. 320 SE. 2,N,8 

330 SE. 4,TD/16,8 





TYPE OF NOTE 

TN 

TD 

whole note 

1 

512 

(512/1 = 

512) 

half note 

2 

256 

(512/2 - 

256) 

quarter note 

4 

128 

(512/4 = 

128) 



Number Boxes 101 


S€LF-T€ST 


Take a break. Do something physical and relaxing. Jog, play tennis, stretch, ride a 
bike, go for a walk. Then browse through this Self-Test to assure yourself that you 
are learning more and more about BASIC. 


1. In BASIC, a number box is identified by a label, or name. What is this label 

called?_ 

2. Suppose that the number 7 is in number box A. Then 7 is called the_of 

numeric variable A. 

3. Without actually using the computer, complete each of the following. (It's 
OK to guess!) 


(a) You type: F = 96 
You type: PRINT F 
It prints: _ 

(c) You type: TD = 50 
You type: TD = 100 
You type: PRINT TD 
It prints: _ 

(e) You type: H = 7 
You type: PRINT "H" 
It prints: _ 


(b)Youtype: KOLOR = 12 
You type: PRINT KOLOR 
It prints: _ 

(d) You type: KOLOR = 12 

You type: FREQ = 16*KOLOR 
You type: PRINT FREQ 
It prints: _ 


4. Theline: 20 PR. "WHAT NOTE IN. N tells the computer to 


5. Describe what might happen if you run the following program. 


10 GR. 0 

20 PR. "HOW OLD ARE YOU M ;:IN.AGE 
30 SO. 0,AGE, 10, 10 
40 FOR Z=1 TO 200: NEXT Z 
50 SO. 0,0,0,0 
60 GOTO 20 
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6. For each of the following FOR statements, write the sequence of values that 
the variable A will take on. We have already done the first one. 


FOR STATEMENT SEQUENCE OF VALUES 


FORA =1 TO 7 1,2,3,4,5,6,7 

FOR A = 2 TO 6 _ 

FOR A = 1 TO 7 STEP 2 _ 

FORA = 0 TO 7 STEP 2 _ 

FOR A = 0 TO 4 STEP 5 _ 

FOR A = 1 TO-1 STEP-1 _ 

The next two are tricky! It's OK to guess. 

FOR A = 5 TO 3 _ 

FOR A = 1 TO 2 STEP 0_ 


7. For each of the following programs, pretend that you are the computer. Show 
what will be on your screen when the program is run. 


(a) 1 0 6 R . 0 

20 FOR B =0 TO 10 
30 PR. 10-B 

40 FOR Z=1 TO 500: NEXT Z 

50 NEXT B 

60 PR. "BLASTOFF 11!" 

(b) 10 G R. 0 

20 FOR C0UNTD0WN=10 TO 0 STEP-1 
30 PR. COUNTDOWN 

40 FOR Z=1 TO 500: NEXT Z 

50 NEXT COUNTDOWN 
60 PR."BLASTOFF!!!" 
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8. Below is the music for Jingle Bells . We have added the note letters and 
numbers. 


EEEEEEEGCDE 
47 47 47 47 47 47 4 7 40 60 53 47 



Jin-gle Bells, Jin-gle Bells, Jin-gle all the way_ 

FFFFFEEEGGFDC 
45 45 45 45 45 47 47 47 40 40 45 53 60 



Oh, what fun it is to ride a one horse o-pen sleigh! 


Put the necessary information into DATA statements for PLAY A TUNE #2 
so the computer can play Jingle Bells. 

9. Write a program to play "color chords." Each chord consists of three notes 
played by voices 0, 1, and 2. Your program should read the three note 
numbers and the screen color, then play the chord for a little while using the 
screen color for the chord. The note numbers and screen color numbers are 
in DATA statements. For example: 


DATA 121,96, 81, 




screen color 


voice 0 voice 1 voice 2 


Here are some color chords to play. 


1000 REM**C0L0R CHORDS 
1010 DATA 121,96,81,12 
1020 DATA 91,72,60,3 
1030 DATA 81,64,53,8 


Add as many more as you want! 
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Answers to Self-Test 


1. A numeric variable 

2. value 

3. (a) 96 

(b) 12 You can't use COLOR as a variable since it is a special BASIC word. 

(c) 100 

(d) 192 (Since KOLOR is 12, FREQ = 16* 12 = 192) 

(e) H Because H is enclosed in quotation marks. 


4. Print the message WHAT NOTE7H, then wait for someone to enter the 
value of N. 

5. First, the screen looks like this: 


HOW OLD ARE YOU7B 


If you type your age and press RETURN, the computer uses your age as a 
note number and plays a note. 

Young people will hear high notes. 

Older people will hear lower notes. 

Venerable dragons will hear nothing and see an error message. 


HOW OLD ARE YOU? 123456 
ERROR 3 AT LINE 30 


You will hear a tone for any number up to 65535. 
Numbers from 65536 and up give the error message. 
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6 . 

FOR STATEMENT 

FOR A = 1 TO 7 
FOR A = 2 TO 6 
FOR A = 1 TO 7 STEP 2 
FOR A = 0 TO 7 STEP 2 
FOR A = 0 TO 4 STEP 5 
FOR A = 1 TO -1 STEP -1 
FOR A = 5 TO 3 
FOR A = 0 TO 2 STEP 0 


SEQUENCE OF VALUES 


1 . 2 . 3 . 4 . 5 . 6.7 

2,3,4,5,6 

1.3.5.7 
0,2,4,6 
0 

1 , 0,-1 

5 only (no STEP - 1 ) 
0 , 0 , 0 , 0 , 0 ,etc. 


7. Both programs print the same information, as follows: 



8 

7 

6 

5 

4 

3 

2 

1 

0 

BLASTOFF!!! 


8 . 900 REM* 'TEMPO, NOTES & TYPES 

910 DATA 512 
920 DATA 47,4, 47,4, 47,2 
930 DATA 47,4, 47,4, 47,2 
940 DATA 47,4, 40,4, 60,4, 53,4 
950 DATA 47,1 

960 DATA 45,4, 45,4, 45,4, 45,4 
970 DATA 45,4, 47,4, 47,4, 47,4 
980 DATA 40,4, 40,4, 45,4, 53,4 
990 DATA 60,1 


Merry Christmas! 


9. We leave this one entirely to you. 




Chapter 

Five 



Now you know about number boxes, handy tools for doing things with numbers. 
Next, put some string boxes in your Atari BASIC toolbox. 

String boxes are places in the computer's memory that can store strings. String 
boxes are identified by names, or labels, called string variables 

In this chapter you will learn how to put strings into string boxes and then use 
them in many ways. 

When you finish this chapter, you will be able to: 

• Recognize and use string variables 

• Assign values to string variables 

• Use the DIM statement to reserve memory space for string variables 

• Use the INPUT statement to enter values of a string variable from the 
keyboard 

• Use READ and DATA statements to supply values of a string variable 

• Write programs using both numeric and string variables 

• Use subroutines and the GOSUB and RETURN statements 

Your power increases! More tools appear in your computer toolbox. You are a 
step closer to getting the computer to do what you want it to do! 
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STRING BOX€S 

Put your imagination to work again. This time, imagine that inside the computer 
are a number of little string boxes. 



A string box is identified by a label, or name, consisting of a letter followed by a 
dollar sign. For example, here are boxes called A$, B$, and N$. 



Into a string box you can put. . .(suspense, trumpets, fanfare!). . .a string. 

A string can be a name: GEORGE FIREDRAKE 
A string can be a telephone number: 415-323-6117 
A string can be a message: TRUST YOUR PSYCHIC TAILWIND 
A string can be gibberish: 12BZ$ = A 

A string may include almost any keyboard character. Quotation marks are 
sometimes used to enclose a string, as shown below: 

"REALITY EXPANDS TO FIT THE AVAILABLE FANTASIES." 


REMEMBER: The quotation marks are not part of the string. They 
enclose the string. 

"RID€ TH€ THIRD WRV€!" 

_This string is enclosed _ 

in quotation marks 
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The labels that identify string boxes (A$, B$, C$, etc.) are called string variables. 
The string in the box is called a string value. The string in box A$ is called the value 
of A$; the string in box B$ is called the value of B$; the string in C$ is called the 
value of C$; and so on. 

Below are three string boxes called A$, N$, and T$: 


MENLO PARK, CA 94025 

N$ 

GEORGE 

T$ 

415 323 6117 


• The value of A$ is MENLO PARK, CA 94025 

• The value of N$ is GEORGE 

• The value of T$ is 415 323 6117 

In Chapter 4, you learned about number boxes and numeric variables. 

These are numeric variables: A B C N Z 
These are string variables: A$ B$ C$ N$ Z$ 

Do you see the difference? A string variable always ends with a dollar sign ($), 
while a numeric variable does not end in a dollar sign. 

Perhaps you remember that a numeric variable may be a letter followed by a 
digit or even a number of letters and digits. A string variable may also be a group of 
letters and/or digits, followed by a dollar sign. If so, the first character must be a 
letter. 


These are numeric variables: T1 ABC KOLOR 
These are string variables: T1$ ABC$ KOLOR$ 

Please recall, however, that you can't use a special BASIC word as a variable. So 
you can't use COLOR, GO or TO. See Appendix F for a list of reserved words. 

Before using a string variable, you must tell the computer how long the string 
might be. The length of a string is the number of characters within it, including 
spaces. 


STRING 

A 

AB 

ABC 

ABC 


LENGTH 

1 

2 

3 

5 
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Use the DIM statement to tell the computer the maximum number of characters 
you intend to use in a string variable. 

You type: DIM N$(50) and press RETURN. 

It prints: READY 

You have told the computer to reserve room in its memory for values of N$ up to 
40 characters long. 

DIM N$(40) 

/ 1 I 

Save room for up to 40 characters 


You can reserve room for more than one variable in a single DIM statement. For 
example: 

DIM N$(40),V$(30) 

Here is how you tell the computer to stuff a string into a string box, or, more 
formally, how to assign a string to a string variable. To tell the computer to put the 
string GEORGE into string box N$, do this: 

You type: DIM N$(40) 

You type: N$= "GEORGE 7 ' 
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The computer has put the string GEORGE into string box N$. Remember how 
you did this. 

N$ = G€ORG€ " 

String variable String 

Now find out what is in string box N$. Tell the computer to print the value of 
string variable N $. 

You type: PRINT N$ 

It prints: GEORGE 

To tell the computer to print the value of string variable N$, you type: 

PRINT N$ 

IMPORTANT NOTICE: When you use this method to assign a value to a string 
variable, you must enclose the string in quotation marks. 

fi$ = "Pl€flS€ €NClOS€ M€ IN QUOTATION MARKS" 

Questions_ 

1. For each variable, write N if it is a numeric variable, S if it is a string variable, 
and OOPS! if it is neither a numeric nor string variable. 

A$_ X_ TD_$ABC_ 

NMBR_ NAMES_ P2.3_ 3N$_ 

2. Your turn. Complete the following: 

You type: DIM A$(30) 

You type: A$ = "THE FORCE IS WITH YOU " 

You type: PRINT A$ 

It prints: _ 
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3. How would you assign the string TIM to the string variable NAMES? 

(a) You type:_ 

(b) You type:_ 

What would you then type to tell the computer to print the value of NAMES? 

(c) You type:_ 

(d) Write commands to assign the string BARBARA to the string variable 
NAMES and then to print the value of NAMES. 

You type:__ 

You type:_ 


Answers 


l. 

A$ _S_ X _N_ TD _N_ $ABC OOPS! 

NMBR N NAMES S P2.3 OOPS! 3N$ OOPS! 


2. (a) THE FORCE IS WITH YOU 

3. (a) DIM NAME$(20) 

(b) NAMES = "TIM" 

(c) PRINT NAMES 

(d) NAMES = "BARBARA" 
PRINT NAMES 
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use INPUT TO STUFF STRING BOX€S 


You can also use the INPUT statement to put strings into string boxes or, as some 
prefer to say, assign strings as values of string variables. 


10 DIM A $(4 0) 
20 GR. 0 

I 

30 IN. A$ 

I 

40 PR. A$ 

f 

50 PR. 

t 

60 GOTO 30 




In following this program, the computer always returns to the INPUT state¬ 
ment, prints a question mark, turns on the cursor and waits patiently for a value of 
A$. 

Store the program and RUN it. It begins this way: 


Type the string FIREDRAKE, without quotation marks. 


In response to an INPUT statement, 
you don’t have to enclose 
the string in quotation marks. 

EXPERIMENT! Type a string and press RETURN. Try several strings. When 
you are finished, press BREAK to stop the computer. 


7FIREDRAKE 

FIREDRAKE 

?■ 
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You can use the INPUT statement to put a name, a message, graphics, charac¬ 
ters, or whatever you want everywhere on the screen. 

10 DIM MSG$(40) 

20 PR. CHR$( 125) 

30 PR. "MESSAGE";IN. MSG$ 

40 PR. MSG$; 

50 GOTO 40 


Experiment with this program. Put a name on the screen. Type spaces before the 
name — do they appear? Type spaces after the name — do they appear? Type 
graphics characters. Add SOUND or SETCOLOR. Experiment! 

Next, try this program. 


100 

REM* 

*S0UND OFF 

FOR 

SOMEONE 

110 

DIM 

NAMES 

(40) 



120 

GR. 

0 




200 

REM* 

*F0R 

WHOM? 



210 

PR. 

C H R $ ( 

125) 



220 

PR. 

"YOUR 

NAME" 

• • 

5 • 

IN.NAMES 

300 

REM* 

*CRES 

CENDO 

FOR 

NAMES 

310 

PR. 

C H R $ ( 

125) 



320 

FOR 

N-255 

TO 1 

STE 

P -1 

330 

PR 

. NAME 

$ 



340 

SO 

. 0, N 

, 10,10 



350 

NEXT 

N 




400 

REM* 

*D0 I 

T AGAI 

N 


410 

SO. 

0,0,0 

,0 



420 

GOTO 

210 
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Questions_ 

1. Complete the following program to blink a name, message or any string on 
and off. If you need help, review the NAME BLINKER section in Chapter 3. 

100 REM**STRING BLINKER 
110 DIM S$(40) 

120 GR.O 

200 REM**GET THE STRING TO BLINK 
210 PR. CHR$( 125) 

220 PR. "STRING";: IN. S$ 

300 REM**BLINK S$ ON 

400 REM**BLINK S$ OFF 

500 REM**G0 BLINK AGAIN 

2. Write a program to "fade-in" and "fade-out" a string someone enters from the 
keyboard in response to an INPUT statement. If you need help, review the 
NAME FADER program in Chapter 4. 

Answers_ 


1. Here is the rest of the program. 

300 REM**BLINK S$ ON 
310 PR. S$ 

320 FOR Z=1 TO 500: NEXT Z 

400 REM**BLINK S$ OFF 
410 PR. CHR$( 125) 

420 FOR Z=1 TO 500: NEXT Z 

500 REM**G0 BLINK AGAIN 
510 GOTO 310 
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2. 100 REM**STRING FADER 

110 DIM S$(40) 

120 GR. 0 

130 PR. "STRING";: IN. S$ 


200 REM**SET BACKGROUND COLOR 
210 SE. 2,0,0 

300 REM**PRINT NAME INVISIBLY 
310 SE. 1,0,0 
320 PR. S$ 



400 REM**MAKE NAME SLOWLY VISIBLE 

410 FOR L = 0 TO 15 

420 SE. 1,0,L 

430 FOR Z=1 TO 30: NEXT Z 

440 NEXT L 



500 REM**MAKE NAME SLOWLY INVISIBLE 

510 FOR L = 15 TO 0 STEP -1 

520 SE. 1,0,L 

530 FOR Z=1 TO 30: NEXT Z 

540 NEXT L 



600 REM**GO DO IT AGAIN 
610 GOTO 410 


Line 120 clears the screen to its usual GR. 0 blue. 
Also try these variations: 


• Keep the foregound luminance constant and fade the background lumi¬ 


nance. Change the program as follows. 

420 SE. 2,0,L 
520 SE. 2,0,L 




• Use an INPUT statement to obtain the screen color. 
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US€ R€RD AND DATA TO STUFF STRING 

Boxes 


You can use READ and DATA statements to stuff strings into string boxes. First 
try this program. 


10 

DIM 

N$ ( 20) 


20 

GR. 

0 


30 

READ 

N $ 


40 

PRINT N$ 


50 

GOTO 

30 


60 

DATA 

DO,RE,ME, 

FA 

70 

DATA 

S 0L,LA,TI 

, DO 



The statement: 30 READ NS tells the computer to read one string from a DATA 
list and put the string into box NS (assign the string as the value of NS). Every time 
line 30 is executed, the next string in the DATA list is read and assigned as the value 
of NS. 

This is how the screen looks when you RUN the program: 



The computer read and printed all the values in the DATA statement, then tried 
to read yet another. Alas, there were no more strings to be read, so the computer 
printed an error message. That's OK, since it was finished doing what we wanted it 
to do. 
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Look at the DATA statements in lines 60 and 70: 

60 DATA DO,RE,MI,FA 
70 DATA SOL,LA,TI,DO 

The two DATA statements contain eight strings. We use commas between strings: 

60 DATA DO,RE,Ml,FA 

^ \ l / \ 

No comma commas no comma 

here between here 

strings 


Hmmm.. .who said, "It all begins with do, re, mi?"Try this program — see what 
you hear and hear what you see. 

100 REM**D0 RE MI 
110 DIM N$(20) 

120 GR. 0 

200 REM**READ NOTE & NOTE NUMBER 
210 PR CHR$( 125) 

220 READ N$,N 

300 REM**SH0W & PLAY NOTE 
310 PR. N$ 

320 SO. 0,N,10,10 

330 FOR Z=1 TO 400: NEXT Z 

340 SO.0,0,0,0 

400 REM**G0 FOR ANOTHER 
410 GOTO 210 

1000 REM**N0TES & NOTE NUMBERS 

1010 DATA DO,121 

1020 DATA RE,108 

1030 DATA MI,96 

1040 DATA FA,91 

1050 DATA SOL,81 

1060 DATA LA,72 

1070 DATA TI,64 

1080 DATA DO,60 
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The READ statement (line 220) tells the computer to read a value for a string 
variable and a value for a numeric variable: 

220 READ N$, N 



We put the eight pairs of values for NS and N in eight separate DATA state¬ 
ments. To save time and space, we could have done it this way: 

1010 DATA DO,121,RE,108,Ml,96,FA,91 
1020 DATA SOL,81,LA,72,Tl,64,DO,60 


You can even put all the information in one DATA statement! 

RUN the program. First you see DO on the screen and hear the musical tone for 
DO in the scale of C. 



When you see RE and hear the musical tone for RE. 


/reT 

And so on. Eventually, the computer runs out of music and you see: 


ERROR-6 AT LINE 220 
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Mix up the DO, RE, Mi's. Write your own DATA statements, as many as you 
want. Change the time delay in line 330. Make it longer. Close your eyes. When 
you hear the sound, guess. Is it DO, RE, MI,. . .? Open your eyes and look at the 
screen. Are you correct? To practice your DO, RE, Mi's (in the scale of C), try this 
variation: 

100 REM**D0 RE MI 
110 DIM N$(20) 

120 GR. 0 

200 REM**READ NOTE & NOTE NUMBER 
210 PR. CHR$(125) 

220 READ N$,N 

300 REM**PLAY THE NOTE 
310 SO. 0,N,10,10 
320 FOR Z=1 TO 400: NEXT Z 
330 SO. 0,0,0,0 

400 REM**WAIT, THEN TELL WHICH NOTE 
410 FOR Z=1 TO 1000: NEXT Z 
420 PRINT N$ 

500 REM**G0 FOR ANOTHER 
510 GOTO 210 

1000 REM**N0TES & NOTE NUMBERS 
1010 DATA MI,96, TI,64, TI,64, DO,121 
1020 DATA LA,72, DO,60, SOL,81, FA,91 
1030 DATA MI,96, RE,108, FA,91, SOL,81 
' 1040 DATA TI,64, DO,60, MI,96, LA,72 
1050 DATA FA,91, DO,121, TI,64, TI,64 
and so on. 


Now you can keep your eyes open and watch the screen. First you hear the note. 
Guess — is it DO, RE, MI.. ,?Then you see the answer. Want more time to answer? 
Change the time delay in line 410. 
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Questions_ 

1. Instead of DO, RE, MI, put the letters for the notes on the screen. Here are 
both for the scale of C. 



CDEFGABC 
DO RE Ml FA SOL LA Tl DO 


To do this, you need change only the DATA statements in the DO, RE, MI 
program. 

2. Here again are the words and music for Mary Had a Little Lamb: 


EDCDEEEDDDEGG 

47 53 60 53 47 47 47 53 53 53 47 40 40 



Mar-y had a lit-tle lamb, lit-tle lamb, lit-tle lamb, 


EDCDEEEEDDFDC 

47 53 60 53 47 47 47 47 53 53 45 53 60 



Mar-y had a lit-tle lamb, its fleece was white as snow. 

Modify the DO, RE, MI program to play Mary Had a Little Lamb so the syllable or 
word for each note appears on the screen while the note is played. First Mar then-y 
then had and so on. 
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Rnsuuers 


1. 1010 DATA C, 

1020 DATA D, 

1030 DATA E, 

1040 DATA F, 

1050 DATA F, 

1060 DATA A, 

1070 DATA B, 

1080 DATA C, 

2. Did you remember to include the duration of each note on the type of note 
(quarter, half, whole)? 

100 REM**W0RDS & MUSIC 
110 DIM WORDS(20) 

120 GR. 0 

200 REM**READ TEMPO (HOW FAST TO PLAY) 

210 READ TEMPO 

300 REM**READ WORDS, NOTE, TYPE OF NOTE 
310 READ WORDS,N,TN 

400 REM**SH0W WORDS, PLAY NOTE 
410 PR. CHR$( 125) 

420 PR. WORDS 

430 SO. 0,N, 10,10 

440 FOR Z=1 TO TEMPO/TN: NEXT Z 

450 SO. 0,0,0,0 

500 REM**GO FOR ANOTHER 
510 GOTO 310 

1000 REM**TEMPO,WORDS,NOTE, TYPE NOTE 
1010 DATA 512 

1020 DATA MAR,47,4,Y,53,4,HAD,60,4,A,53,4 

1030 DATA LIT,47,4,TLE,47,4,LAMB,47,2 

1040 DATA LIT,53,4,TLE,53,4,LAMB,53,2 

1050 DATA LIT,47,4,TLE,40,4,LAMB,40,2 

1060 DATA MAR,47,4,Y,53,4,HAD,60,4, A,53,4 

1070 DATA LIT,47,4,TLE,47,4,LAMB,47,4,ITS,47,4 

1080 DATA FLEECE,53,4,WAS,53,4,WHITE,45,4,AS,53,4 

1090 DATA SNOW,60,1 
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SUBROUTINGS MfW€ IT €f!SI€R 

Imagine your ATARI computer with a giant TV screen. It's the big game of the year 
and your computer is firing up the Rooter Club — building energy to help your 
team win the game. 

100 REM**G0 TEAM GO ! ! ! 

110 GR. 0 
120 SE. 1,0,0 


200 REM** 1 GO 1 ON A BLUE SCREEN 
210 SE. 2,8,8 

220 PR. CHR$(125): PR. "GO" 

230 FOR Z=1 TO 500: NEXT Z 

300 REM** 1 TEAM 1 ON AN ORANGE SCREEN 
310 SE. 2,1,8 

320 PR. CHR$(125): PR. "TEAM" 

330 FOR Z=1 TO 500: NEXT Z 

400 REM** 1 GO! !! 1 ON A GREEN SCREEN 
410 SE. 2,12,8 

420 PR. CHR$(125): PR. "GO!!!" 

430 FOR Z=1 TO 500: NEXT Z 

500 REM**KEEP IT GOING 
510 GOTO 210 


Three time delays in that last program. Aha! A splendid opportunity to intro¬ 
duce. . .(fanfare!). . .subroutines. Write the time delay once as a subroutine, then 
use it as often as needed. 

The following program has a time delay subroutine beginning at line 900. This 
subroutine is used, or called, in lines 230, 330, and 430. 

100 REM**G0 TEAM GO! ! ! 

110 GR. 0 

120 SE. 1,0,0 

200 REM**'GO’ ON A BLUE SCREEN 

210 SE. 2,8,8 

220 PR. CHR$(12 5): PR. "GO" 

230 GOSUB 910—_ 


Use time delay subroutine (continued) 
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300 REM** 1 TEAM 1 ON AN ORANGE SCREEN 
310 SE. 2,1,8 

320 PR. CHR$(125): PR. "TEAM" 

330 GOSUB 910 —- Use time delay subroutine 

400 REM** 1 GO! ! ! 1 ON A GREEN SCREEN 
410 SE. 2,12,8 

420 PR. C H R $ ( 125) : PR. "GO! ! !" 

430 GOSUB 910- Use time delay subroutine 

500 REM**KEEP IT GOING 
510 GOTO 210 

900 REM**TI ME DELAY SUBROUTINE 
910 FOR Z=1 TO 500: NEXT Z 
920 RETURN 


The time delay subroutine is called (used) by the GOSUB 910 statement in lines 
230, 330, and 430. Obedient as always, the computer goes to line 910, does it, then 
moves on to line 920. Aha! Line 920 says RETURN. So, the computer RETURNS to 
the statement following the GOSUB 910, and continues from there. Clever! 

A subroutine is a helper. You call it when you need it. It does what it is designed 
to do, then RETURNS to the statement following the GOSUB that called it. 

We use a slightly different time delay subroutine in a program to blink a name or 
message on and off: 


100 

REM 

**STRING BLINKER 

110 

GR. 

0 

120 

DIM 

MSG$(40) 

130 

SE. 

1,0,0 

200 

REM 

**WHAT TO BLINK? 

210 

PR. 

CHR$(125) 

220 

PR. 

"WHAT SHALL I BLINK?"; 

230 

IN. 

MSG$ 

300 

REM 

**MESSAGE ON 

310 

PR. 

C H R $(125) 

320 

PR. 

MSG$ 

330 

G0S 

UB 910 


(continued) 
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400 REM**MESSAGE OFF 
410 PR. CHR$(12 5) 

420 GOSUB 910 

500 REM**G0 BLINK 
510 GOTO 310 

900 REM**TIME DELAY SUBROUTINE 
910 TD = 1000 
920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 


The time delay subroutine is called in lines 330 and 420. Line 910 in the 
subroutine sets the amount of delay. To slow down or speed up the blinking, 
change line 910. For example: 

Faster blinking: 910TD = 500 
Slower blinking: 910 TD = 2000 

Next, a program to blink a message with two sounds — one sound when the 
message is on and another when the message is off: 

100 
110 
120 
130 

200 
210 
220 
230 


300 REM**MESSAGE ON WITH SOUND #1 
310 PR. CHR$( 125) 

320 PR. MSG$ 

330 N - 60. TD - 500 _ Set the note and time delay, 

340 GOSUB 810 - then GOSUB and play. 

400 REM**MESSAGE OFF WITH SOUND #2 
410 PR. CHR$(125) 

420 N = 121: TD = 500 - Set the note and time delay, 

430 GOSUB 810 _ then GOSUB and play. 


REM**STR ING BLINKER WITH SOUND 
G R . 0 

DIM MSG$ ( 40 ) C Bl< 

SE . 1,0,0 > are 


REM**WHAT TO BLINK? 

PR. C H R $(125) 

PR. "WHAT SHALL I BLINK"; 
IN. MSG$ 


Blocks 100 and 200 
are just like STRING 
BLINKER, except for 
a slight change 
in line 100. 


(continued) 
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500 

REM 

* * 

GO 

BLI 

510 

GOTO 

310 


800 

REM 

* * 

PLA 

Y A 

810 

SO. 

0 

,N, 

10, 

820 

FOR 

Z 

= 1 

TO 

830 

SO. 

0 

,0, 

0,0 

840 

RETUR 

N 


900 

REM 

** 

TIM 

E D 

910 

FOR 

z 

= 1 

TO 

920 

RET 

UR 

N 



NK AGAIN 


NOTE 

10 

TD: N 


ELAY 
TD: N 


SUBROUTINE 
EXT Z 


SUBROUTINE 
EXT Z 




EXPERIMENT! Change lines 330 and 420 to get the two notes and durations 
(time delays) that sound good to you. Try very short or very long time delays. Try 
notes close together or far apart. 


Questions_ 

Our STRING BLINKER WITH SOUND program contains an unused TIME 
DELAY SUBROUTINE in block 900. Let's use it now. 


1. Change the program so you hear sound # 1 when the name is on and silence 
when the name is off. You need change only two lines. 

2. Change the PLAY A NOTE SUBROUTINE so it calls (uses] the TIME DELAY 
SUBROUTINE. Yes, a subroutine can call a subroutine! You need change 
only one line in block 800. 


Answers_ 

1. Change lines 420 and 430 to instruct the computer to call the TIME DELAY 
SUBROUTINE instead of the PLAY A NOTE SUBROUTINE. 


420 TD = 500 
430 GOSUB 910 


126 ATARI BASIC, XL Edition 


2. Replace the time delay in line 820 with a GOSUB to call the TIME DELAY 
SUBROUTINE. 

820 GOSUB 910 

The RETURN statement in line 920 sends the computer back to line 830; the 
computer shuts off the sound, goes on to line 840, and RETURNS to the line 
following the GOSUB that called the PLAY A NOTE SUBROUTINE. 


PROGRRMM€R'S TOOLBOX 

Subroutines are handy tools. As you work and play through this book, you will 
acquire more tools for your Programmer's Toolbox. 



In this chapter, we used four subroutines: three time delay subroutines and one 
subroutine to play a note. Here they are without line numbers. You may add line 
numbers, then write GOSUBs to use them. 


REM**TIME DELAY 

SUBROUTINE 


FOR Z=1 TO 500: 

NEXT Z 


RETURN 




REM**TI ME DELAY SUBROUTINE 
TD = 500 

FOR Z=1 TO TD: NEXT Z 
RETURN 
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REM**T I ME DELAY SUBROUTINE 
F0RZ=1 TO TD: NEXT Z 
RETURN 



S€LF-T€ST 


Congratulations! You have completed another chapter. Undoubtedly, you now 
have the stringth (oops) to twine your way through this Self-Test. 


1. What is a string? 


2. What is a "string box?" 


3. What is a string variable? 


4. What is the value of a string variable? 


5. Write line 110 to tell the computer to reserve 30 character positions for S$, 20 
positions for V$, and 40 positions for P$. 

110_ 
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6. Complete the following. Assume all variables have appeared in DIM state¬ 
ments. 

(a) You type: Z$ = "ZZZZZ" 

You type: PR. Z$ 

It prints:_ 

(b) You type: A$= "DO RE Ml" 

You type: B$ = A$ 

You type: PR. B$ 

It prints:_ 

(c) You type: S$ = "THE DRAGON 
You type: V$ = "ATE " 

You type: P$ = "THE LAZY KNIGHT." 

You type: PR.S$;V$;P$ 

It prints:_ 


7. Describe what the INPUT statement does. 


8. Describe how the READ and DATA statements work together. 


9. On page 113, we showed you a program called SOUND OFF FOR SOME¬ 
ONE. After you enter someone's name, you see the name on the screen and 
hear a crescendo of notes from the lowest note (255) to the highest note (1). 
Please make a few changes to the program. 

Make the letters in the name very dark. 

Ask for the screen border and background colors. Use these colors during the 
crescendo. 
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10. Write a program to play Mary Had a Little Lamb using the following screen 
colors for notes of the song. 


Note 

40 

45 

47 

53 

60 

Color 

pink 

red-orange 

green 

blue 

purple 

Color 

Number 

4 

3 

12 

7 

5 


Put all necessary information to play the song in DATA statements. Here, again, 
are the words and music: 


EDCDEEEDDDEGG 
47 53 60 53 47 47 47 53 53 53 47 40 40 



Mar-y had a lit-tle lamb, lit-tle lamb, lit-tle lamb, 


EDCDEEEEDDFDC 
47 53 60 53 47 47 47 47 53 53 45 53 60 



Mar-y had a lit-tle lamb, its fleece was white as snow. 


11. What are subroutines and how do you use them? 
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12. Change our STRING BLINKER WITH SOUND (page 124) so that the screen 
is red-orange when the message is on-screen and green when the screen is 
blank. Do this by changing only lines 330, 420, and the PLAY A NOTE 
SUBROUTINE. 


330 _ 

420 _ 

800 REM**PLAY A NOTE SUBROUTINE 

810 _ 

820 _ 

830 _ 

840 _ 

850 _ 


13. Write a subroutine to play a chord with three notes. Use the following 
variables: 


NO Note number for voice 0. 
N1 Note number for voice 1. 
N2 Note number for voice 2. 
TD Time duration. 


To use your subroutine, we might write: 


340 N0 = 121: N1=96:N2 = 60:TD=128 
350 GOSUB 



line number of your subroutine 
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Answers to Self-Test 


1. A bunch of keyboard characters, typed one after the other. A string can 
include letters A to Z, numerals 0 to 9, punctuation symbols (.,;etc.), special 
symbols ( #$%etc.), and graphics characters. 

2. A place in the computer's memory (RAM] that can hold, or store, a string. 

3. The name of a string box. A string variable may be a letter followed by a 
dollar sign (A$), a letter and a digit followed by a dollar sign (N3$), or a letter 
followed by letters and/or digits and a dollar sign (AB$, S123S, NAMES). 

4. The value of a string variable is the string assigned to the string variable, 
(frame 3) 

5. 110 DIM SS(30), V$(20), P$(40) 

6. (a) ZZZZZ (b) DO RE MI 

(c) THE DRAGON ATE THE LAZY KNIGHT. 

7. The computer will print a question mark, turn on the cursor, and wait for 
someone to enter a value or values for the variable or variables in the INPUT 
statement. When the required information is entered the computer moves on 
to the next statement. 

8. The READ statement will read one value from a DATA statement for each 
variable in the READ statement(s). The computer will keep track of which 
values have been read, so each time it comes to a READ statement it will read 
the next available value or values from the DATA statement(s). If there are 
no more values, an "error" message is printed — it means OUT OF DATA. 

9. We did it this way: 


100 

REM 

**S0UND OFF 

FOR 

SOM 

E0NE 

110 

DIM 

NAME $(40) 




120 

SE . 

1,0,0 




200 

REM 

**F0R WHOM? 




210 

GR. 

0 




220 

PR. 

"YOUR NAME" 

• • 

5 * 

IN. 

NAME$ 

230 

PR. 

"BORDER (0 

TO 

15) " 

; : IN. 

240 

PR. 

"BACKGROUND 

(0 

TO 

15)";: 

250 

SE. 

4 , BR , 8 




260 

SE . 

2 , BK , 8 





BR 

IN. BK 


(continued) 
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300 REM**CRESCEND0 FOR NAMES 
310 PR. CHR$(125) 

320 FOR N = 255 TO 1 STEP -1 

330 PR. NAMES 

340 SO. 0, N,10,10 

350 NEXT N 

360 SO. 0,0,0,0 

400 REM**DO IT AGAIN 
410 GOTO 210 


10. 100 REM**MUSIC WITH COLOR 

110 GR. 0 

200 REM**READ TEMPO (HOW FAST TO PLAY) 

210 READ TEMPO 

300 REM**READ NOTE,TYPE OF NOTE,&COLOR 
310 READ N , TN,C 

400 REM**PLAY A COLOR NOTE 

410 SE. 2,C , 8 

420 SO. 0,N, 10,10 

430 FOR Z=1 TO TEMPO/TN: NEXT Z 

440 SO. 0,0,0,0 

> 

500 REM**GO PLAY AGAIN 
510 GOTO 310 

1000 REM**TEMPO, N, TN, C 
1010 DATA 512 

1020 DATA 47,4,12,53,4,7,60,4,5,53,4,7 
1030 DATA 47,4,12,47,4, 1 2,47,2 , 12 
1040 DATA 53,4,7,53,4,7,53,2,7 
1050 DATA 47,4,12,40,4,4,40,2,4 
1060 DATA 47,4,12,53,4,7,60,4,5,53,4,7 
1070 DATA 47,4,12,47,4,12,47,4,12,47,4,12 
1080 DATA 53,4,7,53,4,7,45,4,3,53,4,7 
1090 DATA 60,1,5 
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11. A subroutine is a block of lines (statements) that may be called by a GOSUB 
statement. The last statement in a subroutine is a RETURN statement which 
sends the computer to the statement following the GOSUB that called the 
subroutine. 


300 

N = 

60: 

TD 

— 

500: 

C = 

3 

420 

N = 

121 : 

TD 

= 

500: 

C = 

12 

800 

REM 

**PLAY A 

C 

0L0R 

NOTE 

SUBROUTINE 

810 

SE. 

2,C, 

8 





820 

SO. 

0 , N , 

10, 

10 




830 

FOR 

Z=1 

TO 

TD 

: NEXT Z 


840 

SO. 

o,o. 

0,0 





850 

RETURN 







13. As usual, we leave one or more questions without answers. Good luck on this 
one. 


Before you move on to Chapter 6, add the subroutine in question 12 and the one 
you wrote for question 13 to your Programmer's Toolbox. 



Hmmm. . .why not start a 3x5 card file of subroutines and other tools? 




Chapter 

Six 



In this chapter, you will learn more about controlling and using the screen. You 
will learn how to tell the computer to print information anywhere on the screen, 
blink it on or off and move it around. When you finish this chapter, you will be able 
to: 

• Interpret screen positions as rows numbered 0 to 23, and columns num¬ 
bered 0 to 39 

• Use the POSITION statement to position information anywhere on the 
screen 

• Write programs to do simple animation — that is, cause things to move 
from place to place on the screen 

• Use POKE to turn the cursor on or off 

SCR€€N POSITIONS 


In GRAPHICS 0, think of the screen as having 24 rows with 40 screen positions in 


each row 


40 positions. 



24 rows 
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Rows are numbered from 0 (top of screen) to 23 (bottom of screen). Positions 
across the screen are numbered from 0 (left of screen) to 39 (right of screen). We 
will refer to the positions across the screen as columns, numbered from 0 to 39. 


column 



IMPORTANT NOTICE! Some television sets will not display columns 0 
and 1. Therefore, we will do most of our work in columns 2 through 39. 


Explore the following screen map. See Appendix D for blank screen maps. 


0 . 1 . 2 . 3 . 

0123456789012345678901234567890123456789 
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The word ROW is in row 10. 

The word COLUMN is in column 30. 

The letter A is in column 2, row 0. 

There is a lonely star (*) in column 21, row 13. 

The word HERE is in columns 10, 11, 12, and 13, row 0. 

The word THERE is in row 5, columns, 16, 17, 18, 19, and 20. 


Questions_ 

1. Where is the letter Z?_ 

2. Where is NOWHERE?_ 

Answers_ 

1. Column 39, row 23 

2. Column 12, rows 12, 11, 10, 9, 8, 7, and 6. Hmmm...we suspect that, at first, 
you thought NOWHERE was, well, nowhere. 


VOU CAN PAINT ALMOST ANVUJHCAC 

It is easy to tell the computer where you want to print something on the screen. 

• Use the POSITION statement to tell the computer where to print. 

• Then use the PRINT statement to tell the computer what to print. 

When you want to print something you must tell the computer the column and 
row. And, of course, you must tell the computer what to print. Here is a short 
program to print a birthday message for mother near the center of the screen. 

100 REM**HAPPY BIRTHDAY, MOTHER 
110 GR. 0 

200 REM**WHERE TO PRINT 
210 POSITION 8,12 


(continued) 
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300 REM**PR I NT THE MESSAGE 

310 PR. "HAPPY BIRTHDAY, MOTHER" 

400 REM**DO NOTHING LOOP 
410 GOTO 410 


Go ahead — try it. You will see this: 



Just what we wanted, except for the cursor cluttering up our electronic birthday 
card. Soon, we will tell you how to make the cursor disappear. But first, more 
about line 210: 

The line: 210 POSITION 8,12 

Will tell the computer to get ready to do something at column 8, row 12 on the 
screen. 


POSITION 8,12 


column 


row 
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And what do we do at that position? Print the birthday message, of course (line 
310). 


0 . 1 . 2 . 3 . 

0123456789012345678901234567890123456789 



There is our message, neatly centered on the screen at column 8, row 12. 
Unfortunately, the cursor is also on the screen at column 2, row 9. Why column 2? 
Some TV's will not show columns 0 and 1, so the computer will set the left margin 
at column 2. Later, we will show you how to change the margins. 

How do we get rid of that pesky cursor? And, if we make it disappear, how do we 
get it back? 

• Press SYSTEM RESET 

• Type POKE 752,1 and press RETURN. Poof! The cursor disappears. 

• Type POKE 752,0 and press RETURN. The cursor reappears. 

Your ATARI computer has thousands of memory locations. Each memory loca¬ 
tion has a numerical address that identifies it. Each memory location can store a 
number in the range 0 to 255. 

Memory location 752 holds a number that tells the computer to show or not 
show the cursor on the screen. When the number zero (0) is in location 752, the 
computer shows the cursor. When the number one (1) is in location 752, the 
computer does not show the cursor. 
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You use the POKE command to store the number you want (0 or 1) in location 
752. 


POK€ 752,1 
or POK€ 752,0 

/ \ 

Poke a number This is the number 

into this location poked into 

the location 


We will occassionally use POKE to do special things. Let's use POKE in our 
birthday message program. While we are at it, we will also change the screen 
colors and darken the letters in the message. 


100 REM**HAPPY BIRTHDAY, MOTHER 
110 GR. 0 

120 POKE 7 5 2 , 1 - Begone, cursor! 

200 REM**SCREEN COLORS 
210 SE. 1,0,0 
220 SE. 2,5,12 
230 SE. 4, 10,8 

300 REM**PUT MESSAGE AT 8,12 
310 POSITION 8,12 
320 PR. "HAPPY BIRTHDAY, MOTHER" 

400 REM**D0 NOTHING LOOP 
410 GOTO 410 


Dark letters on 
light purple 
with a 

turquoise border. 


Run this program. You will see HAPPY BIRTHDAY, MOTHER on a violet (light 
purple) screen with a turquoise border. You will not see the cursor because line 120 
pokes it away. 
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Press the BREAK key. 



HAPPY BIRTHDAY, MOTHER 


STOPPED AT LINE 410 




Pressing BREAK or SYSTEM RESET returns the cursor to the screen. Try it both 
ways: run the program and press BREAK to stop it; run the program and press 
SYSTEM RESET to stop. 

EXPERIMENT! Here is a program you can use to print whatever you want, 
wherever you want it. In this program, we use the abbreviation for POSITION: 

POS • is the abbreviation for POSITION 


Look for POS. in line 320. 


100 

REM* 

*PRI NT WHAT WHERE 




1 10 

GR. 

0 




120 

DIM 

MSG$(40) 




200 

REM* 

*FIND OUT WHAT & WHERE 




210 

POKE 

752,0 




220 

PR. 

CHR$(125) 




230 

PR. 

"WHAT SHALL I PRINT";: 

I 

N. 

MSG$ 

240 

PR. 

"IN WHAT COLUMN " ; : 

I 

N. 

COL 

250 

PR. 

"IN WHAT ROW " ; : 

I 

N. 

ROW 
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300 REM**PRI NT MSG$ AT COL,ROW 
310 POKE 752,1 
320 POS. COL,ROW 
330 PR. MSG$ 

400 REM**LONG TIME DELAY 

410 TD = 3000 

420 FOR Z=1 TO TD: NEXT Z 

500 REM**GO FOR ANOTHER MESSAGE 
510 GOTO 210 

Line 210 turns the cursor ON so you see it while entering information. Line 310 
turns the cursor OFF so you don't see it while the message is on the screen. The 
time delay is a few seconds — shorten it if you wish. 

Enter and run the program. First you see: 



Type your message and press RETURN. 


WHAT SHALL I PRINT7BE MY VALENTINE 
IN WHAT COLUMN ?■ 


How about column 10? Type 10 and press RETURN. 


WHAT SHALL I PRINT7BE MY VALENTINE 
IN WHAT COLUMN ?10 
IN WHAT ROW ?■ 
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Oh, about a third of the way down the screen, in row 8. 

WHAT SHALL I PRINT7BE MY VALENTINE 
IN WHAT COLUMN ?10 
IN WHAT ROW ?8 

BE MY VALENTINE 

After a few seconds, you will again see: 



Here is another way to write block 200 of the program. 


200 REM**FIND OUT WHAT & WHERE 
210 POKE 752,0 
220 PR. CHR$(125) 

230 PR. "WHAT SHALL I PR I NT";:IN.MSG$ 

240 PR. "WHERE(COLUMN,ROW) ";:IN.COL,ROW 


Line 240 asks for both the column and row. 


WHAT SHALL I PRINT7BE MY VALENTINE 
WHERE (COLUMN,ROW)?10,8 


BE MY VALENTINE 
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Line 240 asks for two things, COL and ROW. 

240 PR. "WHERE (COLUMN,ROW)";:IN. COL,ROW 



When you enter the values of COL and ROW, separate them with a comma. 

WHERE (COLUMN,ROW)?10,8 

value of COL- 

comma ——I 
value of ROW- 


Questions_ 

1. Mother would be pleased to see her happy birthday message blinking on the 
screen. Write a program to blink HAPPY BIRTHDAY, MOTHER without the 
cursor showing. 

2. Write a program to blink a message anywhere on the screen. The message 
and the place to blink it are entered in response to INPUT statements. Show 
onlythe blinking message, nothing else. 


Answers 


1. Easy! We can use most of out second HAPPY BIRTHDAY, MOTHER pro¬ 
gram. 

100 REM** BLINKING BIRTHDAY MESSAGE 
110 GR. 0 
120 POKE 752,1 

200 REM**SCREEN CDL0RS 
210 SE. 1,0,0 
220 SE. 2,5,12 
230 SE. 4,10,8 


(continued) 
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300 REM**PUT MESSAGE AT 8,12 
310 POS. 8,12 

320 PR. "HAPPY BIRTHDAY, MOTHER" 
330 GOSUB 910 

400 REM**ERASE THE MESSAGE 
410 PR„ CHR$(125) 

420 GOSUB 910 

500 REM**G0 BLINK AGAIN 
510 GOTO 310 

900 REM**TI ME DELAY SUBROUTINE 
910 TD = 500 

920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 


2. Another easy one. We can use most of our PRINT WHAT WHERE program. 


100 REM**BLINK WHAT WHERE 

110 GR. 0 

120 DIM MSG$(40) 

200 REM**FIND OUT WHAT & WHERE 
210 POKE 752,0 
220 PR. CHR$(125) 

230 PR. "WHAT SHALL I PRINT";:IN. MSG$ 

240 PR. "WHERE (COLUMN,ROWIN . COL,ROW 

300 REM**PRINT MSG$ AT COL,ROW 
310 POKE 752,1 
320 POS. COL,ROW 
330 PR. MSG$ 

340 GOSUB 910 


400 REM**ERASE THE MESSAGE 
410 PR. CHR$(125) 

420 GOSUB 910 


(continued) 
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500 REM**G0 BLINK AGAIN 
510 GOTO 310 

900 REM**TI ME DELAY SUBROUTINE 
910 TD = 500 

920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 


OTH€R THINGS TO TRV: 


• Add a few choruses of Happy Birthday to You to the HAPPY BIRTHDAY, 
MOTHER program. 

• Ask for the screen colors in the BLINK WHAT WHERE program. 

• Add a little music to the BLINK WHAT WHERE program. 


MRK€ THINGS MOV€ 

You may use the POSITION statement to make things move on the screen. Here is 
a program to "shoot" an arrow across the screen. 

100 REM**SH00T AN ARROW 
110 GR. 0 
120 SE. 1,0,0 
130 SE. 2,0,8 
140 POKE 752,1 

200 REM**START ARROW AT LEFT 
210 P0S. 2,12: PR. >" 

220 TD = 1000 
230 G0SUB 910 

300 REM**THERE IT GOES! 

310 FOR C0L=2 TO 37 
320 P0S. COL,12: PR. " " 

330 P0S. C0L+1,12: PR. >" 

340 TD = 20 

350 G0SUB 910 

360 NEXT COL 



(continued) 
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400 REM**D0 NOTHING LOOP 
410 GOTO 410 

900 REM**TI ME DELAY SUBROUTINE 
910 FOR Z=1 TO TD: NEXT Z 
920 RETURN 

Enter and run this program. You will see an arrow ( — >) appear in row 12, 
columns 2 and 3. After a brief pause, it zips across the screen and thunks into the 
right edge of the screen. 

The program will begin with block 100, which will clear the screen, set the 
screen colors and turn off the cursor. 

100 REM**SH00T AN ARROW 

110 GR. 0 

120 SE. 1,0,0 

130 SE. 2,0,8 

140 POKE 752,1 

Block 200 puts the arrow on the screen at column 2, row 12. The tail ( - ) of the 
arrow is in column 2 and the head (>) of the arrow is in column 3. We put the 
arrow at column 2 instead of column 0 because the PRINT statement usually will 
not print in columns 0 or 1. Lines 220 and 230 cause a long time delay: 

200 REM**START ARROW AT LEFT 
210 P0S.2,12:PR. >" 

220 TD - 1000 
230 G0SUB 910 

Most of the work is done by block 300: 


300 

REM** 

THERE IT 

GO 

310 

FOR C 

0L = 2 TO 

37 

320 

POS 

. COL,12 

: P 

330 

P0S 

. C0L+1, 

12: 

340 

TD 

= 20 


350 

G0S 

UB 910 


360 

NEXT 

COL 



II 


II 

ll_ ->11 


The inside of the FOR-NEXT loop (lines 320, 330, 340, and 350) is done for 
COL = 2, 3, 4, 5, and so on up to 37. Line 320 erases the tail of the arrow at the 
arrow's current position. Line 330 then prints the arrow one position (COL + 1) to 
the right. 
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Lines 340 and 350 set the amount of time delay and call the time delay sub¬ 
routine. Change line 340 to speed up or slow down the arrow. Or, change line 340 
to: 340 TD = COL and watch the arrow slow down as it flies across the screen. To 
slow it down even more, try TD = 2*COL or TD = 3*COL. 

It's more fun with sound. Change line 350 as follows and add line 370: 

350 SO. 0,COL,10,10:GOSUB 910 
370 SO. 0,0,0,0 

Run this variation and hear the sound as the arrow flies across the screen. 
EXPERIMENT! Try several variations of the SOUND statement in line 350. 
Different distortion? Make the loudness depend on COL? Make the frequency 
different? Make the arrow go THUNK! as it hits the right side of the screen. 
EXPERIMENT! 

Next, let's put a balloon on the screen as the target for the arrow. 



Easy. Change block 200 as follows: 

200 REM**PUT ARROW & BALLOON ON SCREEN 
210 POS. 2,12: PR. 

220 POS. 39,12: PR. 

230 TD = 1000 
240 G0SUB 910 

Run the modified program. Watch the arrow fly across the screen and hit the 
balloon. Pop! The balloon is gone. Try your hand at making a popping sound as the 
balloon is hit. Begin at line 370. Try a quick FOR-NEXT loop. Experiment with 
frequency, distortion and loudness. 
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Questions_ 

1. Modify the SHOOT AN ARROW program so an arrow (< - ) flies across the 
screen from right to left. Start the arrow in column 38, row 12. It should fly to 
the left and stop with its nose in column 2 and its tail in column 

2. Write a program to drop a heart (^) slowly from the top of the screen to the 
bottom of the screen. Of course, make it a red heart on a light screen. 

3. Fly a ball around the screen from 2,0 to 39,0 to 39,23 to 2,23 to 2,0 — then 
keep it going around and around. 


Rnswers 


1. We included sound in our program: 

100 REM**SH00T AN ARROW 

110 GR. 0 

120 SE. 1,0,0 

130 SE. 2,0,8 

140 POKE 752,1 

200 REM**START ARROW AT RIGHT 
210 POS. 38,12: PR. "< 

220 TD = 1000 
230 G0SUB 910 

300 REM**THERE IT GOES! 

310 FOR COL-38 TO 3 STEP -1 
320 POS. C0L+1,12: PR. " " 

330 POS. COL-1,12: PR. "< - 

340 TD = 20 

350 SO. 0,C0L,10,10: GOSUB 910 

360 NEXT COL 
370 SO. 0,0,0,0 

400 REM**D0 NOTHING LOOP 
410 GOTO 410 

900 REM**TI ME DELAY SUBROUTINE 
910 FOR Z=1 TO TD: NEXT Z 
920 RETURN 
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Here are some other ways to write lines 310, 320 and 330: There are many more 
possible! 

310 FOR COL-37 TO 2 STEP -1 
320 POS. COL+2,12: PR. 11 " 

330 POS. COL,12: PR. "< 


310 FOR C0L=37 TO 2 STEP -1 
320 POS. COL+1,12: PR. 11 

330 POS. COL,12: PR. "< 


II 



2 spaces 


310 FOR C0L=38 TO 3 STEP -1 

320 POS. COL, 12: PR. " _2!_ 

330 POS. COL-1,12: PR. "< 



2. 100 REM**DR0P A HEART 

110 GR. 0 
120 SE. 1,0,4 
130 SE. 2,3,12 
140 POKE 752,1 


200 REM**START HEART AT TOP 
210 POS. 19,0: PR. "V" 

220 TD = 1000 
230 GOSUB 920 

300 REM**LET IT GO! 

310 FOR R0W = 0 TO 22 
320 POS. 19,ROW: PR. " 

330 POS. 19,ROW+ 1 : PR. 

340 TD = 100 

350 GOSUB 910 

360 NEXT ROW 
370 SO. 0,0,0,0 

400 REM**D0 NOTHING LOOP 
410 GOTO 410 



900 REM**SOUND & DELAY SUBROUTINE 
910 SO. 0,ROW,10,10 
920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 
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3. We leave this one for you to do. Also try some of these. 

• Run a racing car from the left of the screen to the right. Make the racing car 
look like this: [@> 

• Crawl a bug from the left edge to the right edge of the screen. Make the bug 
look like the one below. 

-••••••@ 

• Bounce a ball from left to right, right to left, left to right, and so on. 

• Move your name from left to right across the screen so it stops with the last 
letter of your name touching the right edge of the screen. 

Nfl/V\€ MOV€R 

Karl's name has four letters. George's name has six letters. And there are nine 
letters in "Aloysious." How many letters in your name? We don't know, but we do 
know how to find out: 

100 REM**H0W MANY LETTERS IN A NAME 
120 DIM NAMES(25) 

120 GR. 0 

200 REM**GET A NAME 

210 PR. "YOUR NAME";: IN. NAME$ 

300 REM**C0MPUTE NUMBER OF LETTERS 
310 NL = LEN(NAME$) 

400 REM**PRI NT NUMBER OF LETTERS 

410 PR. NAME$; " HAS "; NL; " LETTERS" 

420 PRINT 



500 REM**G0 FOR ANOTHER 
510 GOTO 210 
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As usual, to find out what it does, ENTER and RUN it 


YOUR NAME? TIM 
TIM HAS 3 LETTERS 

YOUR NAME? BARBARA 
BARBARA HAS 7 LETTERS 

YOUR NAME? JOHN 
JOHN HAS 4 LETTERS 

YOUR NAME? FRANCES 
FRANCES HAS 7 LETTERS 

YOUR NAME? ■ 


and so on. Try it 
with your name. 


Line 310 counts the length (LEN) of the string value of NAMES. The length of a 
string is the number of characters in the string. 

310 NL = LEN(NAME$) 

LENght s' 
of the value of 


LEN is a function. You can use it to compute the number of characters in any 
string. Here are some examples: 

LEN ("A") is 1. 

LEN("AB") is 2. 

LEN("ABC") is 3. 

LEN( "12345679") is 8. 
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Did we fool you on that one! Look again and see that the string "12345679" has 
eight characters — there is no 8. 

Spaces count. LEN(" ") is 1 and LEN( "A B ")is 3. 

I I 

space space 


There is a special string called the empty string which has no characters — not 
even one. The empty string consists of two quotation marks with nothing 
between, not even a space: 

LEN("") is zero (0). 

nothing between quotation marks. 


Think about "bouncing" a name back and forth across the screen. A one- 
character name would go from column 0 to column 39 and back. A two-character 
name would go from column 0 to column 38 and back. A three-character name 
would go from column 0 to column 37 and back. And so on. In general, a name will 
go from column 0 to a column that depends on the length of the name. 


LENGTH OF NAME 
1 
2 

3 

4 
N 


GO TO COLUMN 
39 
38 
37 
36 

40-N 


Suppose the name is called NAMES. Then the length of the name is 
LEN(NAMES). We use this idea in the following program to bounce a 
name on the screen. Look in lines 310, 510, and 610 for NL, the length of the 
name. 


100 REM**NAME BOUNCER 
110 DIM NAME $(2 5 ) 

120 GR. 0 

200 REM**GET A NAME 
210 POKE 752,0 

220 PR. "YOUR NAME";: IN. NAME $ 
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300 REM**NL IS LENGTH OF NAME 
310 NL - LEN(NAME$ ) 

400 REM**PUT NAME NEAR LEFT EDGE 
410 PR. CHR$(12 5) 

420 POS.0,12: PR. NAMES 
430 POKE 752,1 


500 REM**MOVE NAME TO RIGHT EDGE 


510 

FOR COL 

-1 TO 

40- NL 

520 

POS. 

COL- 1 , 

12: PR. " " 

530 

POS. 

COL, 12 

: PR. NAMES 

540 

TD = 

20 


550 

GOSUB 

910 



560 NEXT COL 

600 REM**MOVE NAME LEFT 

610 FOR C0L=40-NL-1 TO 0 STEP - 

620 POS. COL+NL,12: PR. " " 

630 POS. COL,12: PR. NAMES 

640 TD = 20 

650 GOSUB 910 

660 NEXT COL 



700 REM**GO DO IT AGAIN 
710 GOTO 510 


900 

910 

920 

930 


REM**SOUND & DELAY SUBROUTINE 
SO. 0 , C OL , 10,10 

FOR Z=1 TO TD: NEXT Z £ Alsotry 

^ i~ y ^ ^ £ 910 SO.0,COL +100,10,10 

c 910 SO.0,2*C0L + 50,10,10 


Now try the questions — they will help you understand how the program 
works. 
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Questions_ 

1. In the NAME BOUNCER program, suppose you enter CHARLIE as the 
name. 

(a) What is the value of NL in line 310?_. 

(b) In line 510, the value of COL will go from 1 to_. 

(c) In line 610, the value of COL will go from_to 0. 

(d) Suppose COL is 32. In line 620, where will the space be printed?_ 

2. VARIATIONS 

# 

(a) Change the screen color to the color of your choice. 

(b) Make the screen color part of the SOUND & DELAY SUBROUTINE. 
Make it depend on COL. 


Answers 


1. (a) 7 (b) 33 (c) 32 (d) column39 

2. We did (b) like this: 


900 REM**S0UND, COLOR & DELAY SUBR. 

910 SO. 0,COL,10, 10 

920 SE. 2,COL,8 

930 FOR Z=1 TO TD: NEXT Z 

940 RETURN 


After watching a name bounce for awhile, we added a line to make the letters 
dark: 


130 SE. 1,0,0 
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S€IF-T€ST 

What? — another Self-Test? Go jump around a bit. Skip rope, play hopscotch, 
stretch, relax. Then come and skip through this Self-Test. 


1. In GRAPHICS 0, the screen has (a) _columns and (b) _rows. The 

columns are numbered from (c) _ (left of screen) to (d) _ (right of 

screen). The rows are numbered from (e) _ (top of screen) to (f) _ 

(bottom of screen). 



(a) What is in column 11, row 13?_ 

(b) What is in columns 20, 21, and 22, row 6? 

(c) What is in column 31, rows 7 through 12? 

(d) Where is the word WIZARD?_ 

(e) Where is the word HOBBIT?_ 

(f) Where is the word RAG?_ 

(g) Where is the letter Z?_ 

(h) Where is the word CAT?_ 
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3. How do you tell the computer to: 

(a) Turn off the cursor._ 

(b) Turn on the cursor._ 

4. Write a program to put the message MERRY CHRISTMAS, FATHER on line 
10. Center the message on the line. Do not show the cursor. 

5. Write a program to ask for two names. For example, it might start like this: 

r 

NAME #1 ? JACK We entered JACK and pressed RETURN. 

NAME #2? JILL ■ We typed JILL. 


Now we press RETURN and see only this near the middle of the screen: 

r 

JACK LOVES JILL 


After a few seconds, we again see: 



NAME #1? ■ Ready for two more names. 


6. Modify your program in question 5 to instruct the computer to blink the 
JACK LOVES JILL message (or use your two names) wherever you want. 


NAME #1?MISS PIGGY 
NAME #2?KERMIT 
WHERE (COL,ROW)?8,10 ■ 
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Now press RETURN and see: 

column 8 


row 10 


7. Write a program to bounce a ball back and forth on the screen. The ball 
should go from column 0, row 12 to column 39, row 12, then back to column 
0, row 12, then repeat until someone presses BREAK. 

8. Write a program so two people can play a simple game. Player A secretly 
enters a number from 1 to 9 to place a balloon on the right edge of the screen 
between the numbers 0 and 10. The number 0 is in row 10 and the number 10 
is in row 20. The ball is in row 10+ N, where N is the number secretly 
entered by player A. Suppose player A enters the number 3. Player B will 
now see: 
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Player B now enters a number from 1 to 9. This is the value of N. An arrow 
appears at row 10 + N and flies across the screen. It either hits or misses the 
balloon. For example, here are a miss and a hit: 




Rnswers to Self-Test 

1. (a) 40 (b) 24 (c) 0 (d) 39 (e) 0 (f) 23 

2. (a) a heart (V) 

(b) The number 123 

(c) The word DRAGON 

(d) Columns 27 through 32, row 8 

(e) Columns 30 through 35, row 11 

(f) Column 31, rows 8,9, and 10. It is part of DRAGON. 

(g) Column 0, row 0 

(h) Column 14, row 17; column 15, row 18; and column 16, row 19 

3. Use a POKE instruction: 

POKE 752,1 turns off the cursor 
POKE 752,0 turns on the cursor 
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4. We put our message with dark letters on a green screen with a pink border: 

100 REM**MERRY CHRISTMAS, FATHER 

110 GR. 0 

120 POKE 752,1 

200 REM**SCREEN COLORS 
210 SE. 1,0,0 
220 SE. 2,12,8 
230 SE. 4,4,8 

300 REM**PUT MESSAGE AT 8,10 
310 POS. 8,10 

320 PR. "MERRY CHRISTMAS, FATHER" 

400 REM**D0 NOTHING LOOP 
410 GOTO 410 


5. This program will put the message at column 0, row 12: 


100 REM**S0ME0NE LOVES SOMEONE 
110 GR. 0 

120 DIM N1 $(20), N2$(20) 

130 SE. 1,0,0 

200 REM**GET TWO NAMES 
210 POKE 752,0 
220 PR. CHR$(125) 

230 PR. "NAME #1";: IN. N1 $ 

240 PR. "NAME #2";: IN. N2$ 

300 REM**PRI NT MESSAGE 
310 POKE 752,1 
320 PR. CHR$(12 5) 

330 POS. 0,12 

340 PR. N1 $; " LOVES ";N2$ 

400 REM**L0NG TIME DELAY 

410 TD = 3000 

420 FOR Z=1 TO TD: NEXT Z 

500 REM**GO FOR MORE NAMES 
510 GOTO 210 
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How long is the message? Let LM be the length of the message. 

LM = LEN(N1$) + 7 + LEN(N2$) 



We can center the message by printing it in column LM/2. Modify block 300 as 
follows: 

300 REM**PRINT MESSAGE 
310 POKE 752,1 
320 PR. CHR$( 125) 

330 LM = LEN(N1 $) + 7 + LEN(N2$ ) 

335 POS. LM/2,12 

340 PR. N 1 $; " LOVES 11 ; N2$ 


6. We made these changes to our original program: 

250 PR. "WHERE (COL,ROW)";: IN. COL,ROW 
330 POS. COL,ROW 


7. 100 REM**B0UNC I NG BALL 

110 GR.O 

120 DIM OBJECTS( 1 ) 

130 OBJECTS = 

200 REM**START OBJECT AT LEFT 

210 POKE 752, 1 

220 POS. 0,12: PR. OBJECTS 

230 TD = 1000 

240 GOSUB 910 

300 REM**M0VE IT TO RIGHT 

310 FOR COL-O TO 38 

320 POS. COL,12: PR. " " 

330 POS. COL+1,12: PR. OBJECTS 

340 TD = 20 

350 GOSUB 910 

360 NEXT COL 


(continued) 
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400 

REM**M0VE IT 

TO 

LEFT 

410 

FOR C0L=38 TO 

0 

STEP -1 

420 

P0S. C0L+1, 

12: PR. " " 

430 

P0S. COL,12 

• 

• 

PR. OBJECTS 

440 

TD = 20 



450 

G0SUB 910 



460 

NEXT COL 



500 

REM**KEEP IT 

BOUNCING 

510 

GOTO 310 



900 

REM**TI ME DELAY 

SUBROUTINE 

910 

FOR Z=1 TO TD 

• 

• 

NEXT Z 

920 

RETURN 




8. As usual, we leave at least one for you to do without our solution. 


In this chapter you will begin to learn how to put patterns and pictures on the 
screen. You will learn about GRAPHICS 1, GRAPHICS 2 and beyond. When you 
finish this chapter, you will be able to: 

• Use GRAPHICS 1 and GRAPHICS 2 to put big letters on the screen 

• Use GRAPHICS 3 through 8 to PLOT tiny colored rectangles on the screen 

• Use DRAWTO to draw lines on the screen 

• Use the COLOR command to select colors of plotted points and lines 
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BIG l€TT€RS 

You have been exploring the land of GRAPHICS 0. Now get ready to take a trip to 
the realm of GRAPHICS 1. 



Type GR. 1 and press the RETURN key. This is what you see: 



In GRAPHICS 1, the screen is split into two parts. We call the top part the 
graphics screen and the bottom part the text window. To print information in the text 
window, use PRINT as before. Use a slightly different PRINT instruction to print 
large letters in the top part of the screen. First, print something in the text window. 

Type PR. "TEXT WINDOW" and press RETURN. 
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Next, print some big letters in the top part of the screen. 
Type PR #6; "BIG LETTERS" and press RETURN. 



Here are your big letters: 



REMEMBER: In GRAPHICS 1 use | PR. # 6; | to print big letters in the 
top part of the screen. Try another one. 

Type GR. 1 and press RETURN to clear the top part of the screen. Now type the 
following three lines: 

PR. #6; n G0 n 
PR. #6; "TEAM" 

PR. #6; "GO! ! ! " 
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When we did it, the screen looked like this. 



In GRAPHICS 1, the screen is split into two parts. The top part is called the 
graphics screen; the bottom part is called the text window. The graphics screen has 
20 columns and 20 rows. Columns are numbered 0 to 19 and rows are numbered 0 
to 19. The text window has four rows with 40 columns in each row. 


0-19 
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You can write a program in GRAPHICS O mode and have the program tell the 
computer to use GRAPHICS 1. Here is a program to put the following message on 
the screen: 

HAPPY 

BIRTHDAY 

MOTHER 


Now go to GR. 0 (press SYSTEM RESET) and enter this program: 


100 

REM** 

HAPPY 

BIRTHDAY, M 

OTHER 

1 10 

GR. 1 






220 

REM** 

PR 

INT 

THE 

: MESSAGE 


210 

POS. 

7, 

8: 

PR. 

#6; "HAP 

PY" 

220 

P0S. 

6, 

10: 

PR. 

, #6; "BI 

RTHDAY" 

230 

POS. 

7, 

12: 

PR. 

, #6; "MOT 

HER" 

300 

REM** 

DO 

NOTHING LOOP 


310 

GOTO 

31 

0 





Enter and run the program. Line 110 puts the computer in GRAPHICS 1 mode, 
then lines 210, 220, and 230 print the message near the center of the top part of the 
screen. The text window is blue and empty. Remember, the top part of the screen 
has 20 columns and 20 rows. 

Press SYSTEM RESET. The computer is back in GRAPHICS 0. List the program 
and make these changes: 

300 REM**ZIP THROUGH THE COLORS 

310 FOR C=0 TO 15 

320 SE. 2 , C , 8 

330 FOR Z=1 TO 50: NEXT Z 

340 NEXT C 

350 GOTO 310 


Line 320 sets color register 2 to color C. Color register 2 controls the color and 
luminance of the text window. 

Run this variation and mother will see the text window changing color while she 
enjoys her birthday message. 
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REMEMBER: In GRAPHICS 1, color register 2 controls the color and 
luminance of the text window. 


Try another variation. Go to GRAPHICS 0 and make these changes: 


300 REM**TEXT WINDOW MESSAGE 
310 PR. CHR$(125) 

320 PR. "HAPPY BIRTHDAY, MOTHER " 
330 FOR Z=1 TO 200: NEXT Z 
340 GOTO 320 


What do you think will happen when you run this variation? Try it and find out. 
Then try this program to blink someone's name 10 times. 


100 REM**BLINK NAME IN GR. 1 
110 DIM NAME$(20) 

120 GR. 1 

200 REM**GET NAME 
210 PR. C HR $(125) 

220 PR. "YOUR NAME";: IN. NAME $ 

300 REM**BLINK 10 TIMES 
310 FOR BLINK = 1 TO 10 
320 POS. 0,0: PR. #6; NAME$ 

330 GOSUB 910 

340 GR. 1 - 

350 GOSUB 910 
360 NEXT BLINK 

400 REM**G0 FOR ANOTHER NAME 
410 GOTO 210 



900 REM**TI ME DELAY SUBROUTINE 
910 TD - 200 

920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 
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Questions_ 

1. In GRAPHICS 1, the screen is divided into two parts. In the top part, there 

are (a)_columns and (b)_rows. In the bottom part, called the text 

window, there are (c)_columns and (d)_rows. 

2. Change the BLINK NAME IN GR. 1 program so the name is blinked near the 
center of row 9. 

3. Write a program to roll a "wheel" (O) across any row from column 0 to 
column 19. Your program should ask for the row. Use the letter oh (O) as the 
wheel. 


Answers 


1. (a) 20 (b) 20 (c) 40 (d) 4 

In the top part, letters and other characters, including graphics characters, 
are twice as wide as characters in the text window. 

2. Remember, the top part of the screen is 20 characters wide. We changed 
block 300 this way: 


300 

REM** 

BLINK 

10 

TIMES 

310 

COL - 

(20 - 

LE 

N(NAME$))/2 

320 

FOR BL I NK = 1 

TO 

10 

350 

P0S 

. COL, 

9: 

PR. #6; NAMES 

330 

G0S 

UB 910 



340 

GR. 

1 



350 

G0S 

UB 910 



360 

NEXT 

BLINK 




Line 310 computes the column in which to print the name so that it is 
approximately centered. For example, the length of JASON is 5, so COL = 
(20 -5)/2 = 15/2 = 7.5 and JASON will be printed in column 7 (the part to the 
right of the point is ignored). 
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3. 100 REM**R0LL A BIG WHEEL 

110 GR. 1 

200 REM**GET THE ROW 
210 PR. CHR$(125) 

220 PR. "WHAT ROW (0 TO 19)";: IN. ROW 

300 REM**START THE WHEEL AT 0,R0W 
310 POS. 0,ROW: PR. #6; "0" 

320 TD - 1000 
330 GOSUB 910 

400 REM**ROLL THE WHEEL TO 19,ROW 

410 FOR C0L = 1 TO 19 

420 POS. COL,ROW: PR. #6; "0" 

430 POS. COL-1,ROW: PR. #6; " " 

440 TD = 50 
450 GOSUB 910 
460 NEXT COL 

500 REM**GO FOR ANOTHER ROLL 
510 GOTO 210 

900 REM**TIME DELAY SUBROUTINE 
910 FOR Z=1 TO TD: NEXT Z 
920 RETURN 


Use this program to roll a bunch of wheels. Note that the wheels are orange. 
Soon we will show you how to change the color of big things in GR. 1. 


EXPERIMENT! In GRAPHICS 2, the top part of the screen has 20 columns and 
10 rows. Columns are numbered 0 to 19 and rows 0 to 9. Letters and other 
characters are twice as wide and twice as tall as in GRAPHICS O. For example, 
here is the letter A in all three modes: 



GR. 0 


GR. 1 


GR. 2 
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Experiment with GRAPHICS 2. Try all the things you did with GRAPHICS 1. 
Remember, there are only 10 rows in GR. 2, numbered 0 to 9. 

In both GRAPHICS 1 and GRAPHICS 2, color register 2 controls the color and 
luminance of the text window. 

Color register 0 controls the color and luminance of upper case characters 
(CAPS). Try this program in both GR. 1 and GR. 2. In line 110, try both GR. 1 and 
GR. 2: 

100 REM**CHAMELEON IN GR. 1 & 2 
110 _ 

200 REM**PUT CHAMELEON ON SCREEN 
210 PR. #6; "CHAMELEON" 


300 

310 

320 

330 

340 

350 

360 

400 

410 


REM**CHANGE COLOR & 
FOR C=0 TO 15 
FOR L = 0 TO 15 
SE. 0,C,L 
FOR Z=1 TO 100: 
NEXT L 
NEXT C 

REM**G0 DO IT AGAIN 
GOTO 310 


LUMINANCE 



Next, experiment with color register 4. In GR. 1 and GR. 2, color register 4 
controls background color and luminance of the top part of the screen. Try this 
program in both GR. 1 and GR. 2 (line 110). 


100 REM**BACKGR0UND IN GR. 1 & 2 
110 _ 

200 REM**PUT THIS ON SCREEN 
210 PR. #6; "BACKGROUND COLORS" 


300 

310 

320 

330 

340 

350 

360 


REM**CHANGE COLOR & LUMINAN 
FOR C=0 TO 15 

FOR L =0 TO 14 STEP 2 
SE. 4 , C , L 

FOR Z=1 TO 200: NEXT Z 
NEXT L 
NEXT C 
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Color register 2 controls the background color in the text window. It also 
controls the color of inverse video characters in the top part of the screen. Try some 
inverse video characters in GRAPHICS O. 

• Press SYSTEM RESET 

• Press the inverse video key. It looks like this: 

Models 400 and 800: 

Models 600XL and 800XL: 

• Type some letters. For example, type ABC. You will see them in inverse 
video. 


• Press 


to get back to normal video. 


In GRAPHICS 0, inverse video characters are darker blue on a lighter blue 
rectangle. That is, in inverse video the luminances of the foreground and back¬ 


ground are reversed. 


REMEMBER: Press (ATARI 400 or 800) or 
800XL) to get into or out of inverse video. 


(ATARI 600XL or 


Now try inverse video in GRAPHICS 2. 


• Press SYSTEM RESET. 


Type GR. 2 and press RETURN. 

Type PR. #6; and press RETURN 


Press 


here. Press 


here. 


In the top part of screen, you will see INVERSE VIDEO in dark blue letters. 
• Type SE. 2,12,8 and press RETURN. 
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Presto chango! The big letters (and the text window) become green. Change 
them to pink. 

• Type SE. 2,4,8 and press RETURN. 

The big letters become pink. 

Color register 1 controls the color of lower case characters. 

• Press SYSTEM RESET. 

• Type GR. 2 and press RETURN. 

• Type PR. #6^'lower case" 

Press here Hold down and 

press ^9 here. 

You will see LOWER CASE in light green letters in the top part of the screen. 
Why not in lower case letters? Well, that's just the way it is. You can't print lower 
case letters up there. 

• Use SETCOLOR with register 1 to change the color of LOWER CASE. 

• Then try lower case inverse video characters. Their color is controlled by 
color register 3. At first, you will see red. 



REMEMBER. In GRAPHICS 1 and GRAPHICS 2, the colors of informa¬ 
tion in the graphics screen (top part of the split screen) are controlled by 
color registers 0, 1, 2, 3, and 4, as shown in the following table. 


COLOR REGISTER 

CONTROLS COLOR & LUMINANCE 

NORMAL 

COLOR* 

0 

upper case 

orange 

1 

lower case 

light green 

2 

inverse video upper case 

dark blue 

3 

inverse video lower case 

red 

4 

background 

black 


*These are the colors right after you type GR. 1 or GR. 2. Use SETCOLOR to change any of these. 
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EXPERIMENT! Use this program: 


100 REM**C0L0R REGISTERS 0 TO 3 
110 GR. 2 

200 REM**PUT INFO ON SCREEN 
210 PR. #6; "UPPER CASE" 

220 PR. #6; "lower case" 

230 PR. #6; "INVERSE UPPER" 

240 PR. #6; "inverse lower" 

300 REM**ASK FOR COLORS & LUMINANCES 
310 PR. CHR$(125) 

320 PR. "COLOR REGISTER (0-4)";:IN. CR 
330 PR. "COLOR";: IN. C 
340 PR. "LUMINANCE";: IN. L 

400 REM**CHANGE AS REQUESTED 
410 SE. CR , C,L 

500 REM**GO ASK AGAIN 
510 GOTO 310 


TINV R€CTANGl€S 


Patterns. That's what you will do next — you will put patterns on the screen, using 
little rectangles of colored light. To do this, you will use the GRAPHICS 3 mode 
and two new instructions called COLOR and PLOT. 

Type GRAPHICS 3 and press RETURN, 
or type GR. 3 and press RETURN. 



174 ATARI BASIC, XL Edition 


Welcome to GRAPHICS 3. You see a two-part screen as in GRAPHICS 1 or 
GRAPHICS 2. The top part of the screen has 40 columns (0 to 39) and 20 rows (0 to 
19). The text window is the same as before. 


0123 . . . COLUMNS 39 



You can put a tiny rectangle of colored light anywhere in the top part of the 
screen — but first you must select a color. 

• Type COLOR 1 and press RETURN. You have selected the color orange. 

• Type PLOT 20,10 and press RETURN. You will see an orange rectangle 
appear in column 20, row 10. This is near the center of the screen. 


Try two more. Put a light green rectangle in the upper left corner and a dark blue 
rectangle in the upper right corner. 


COLOR 2 - light green 

PLOT 0,0 

COLOR 3-dark blue 

PLOT 39,0 


COLOR 


PLOT 
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Then put orange rectangles in the two lower corners. 

COLOR 1 
PLOT 39,19 
PLOT 0,19 


You have now put five colored rectangles on the screen. 



COLOR 3 is 
dark blue 


orange 


GRAPHICS 3 colors are controlled by color register 0,1, 2, and 4. Color register 3 
is not used. When you type GRAPHICS 3 (or GR. 3), the computer loads the color 
register this way: 


COLOR 

REGISTER 

COLOR 

DESCRIPTION 

0 

orange 

This is COLOR 1 

1 

light green 

This is COLOR 2 

2 

dark blue 

This is COLOR 3 

3 

- 

Not used in GR. 3 

4 

black 

Background color 
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Please note that COLOR 1 picks the color in color register 0, COLOR 2 picks the 
color in register 1, and COLOR 3 picks the color in register 2. Strange, but true. 

Of course, you may use SETCOLOR to change the colors in any of the color 
registers. If you change the color in color register 0, all points already plotted in 
COLOR 1 change to the new color. Try it. Plot a bunch of points using any of the 
three color registers, then change the color in the color register. You will see all 
your points change to the new color. Or try the next program, which uses SET- 
COLOR 0 and COLOR 1. Watch all the points change whenever you enter a color 
that is different from your previous color. 


100 

REM 

**PL0T 

ANY COLOR 




110 

GR. 

3 





200 

REM 

**GET 

INF0RMATI0 

N 



210 

PR. 

C HR $ ( 

125) 




220 

PR. 

"COL 

(0-39)";: 

I 

N. 

COL 

230 

PR. 

"ROW 

(0-19)";: 

I 

N. 

ROW 

240 

PR. 

"COLOR (0-15)"; 

• 

• 

I N 

. C 

300 

REM 

**PL0T 

AS REQUEST 

ED 


310 

SE. 

0 , C , 8 





320 

COL 

OR 1 





330 

PLOT COL, 

ROW 




400 

REM 

**G0 DO ANOTHER 




410 

GOTO 210 






KEEP EXPERIMENTING. The next program will plot three points, then let you 
change the color and luminance of any point: 


100 

REM 

**C0L0R EXP 

ERI 

MENTS 

I 

N 

GR. 3 

1 10 

GR. 

3 







200 

REM 

** P LOT 

3 P0 

INTS IN 

3 

CO 

LORS 

210 

COLOR 1: 

PLOT 

5,5 





220 

COL 

OR 2: 

PLOT 

10, 

10 




230 

COL 

OR 3: 

PLOT 

15, 

15 




300 

REM 

**ASK 

FOR A 

CO 

LOR 




310 

PR. 

C H R $ ( 

125) 






320 

PR. 

"COLOR NO. 

(1 

-3)"; 

• 

• 

IN 

. CN 

330 

PR. 

"COLOR (0- 

15) 

II . . T 

5 * 1 

N. 

C 


340 

PR. 

"LUMI 

NANCE 

(0 

-14)" 

• • 

5 • 

I 

N. L 



Graphics Galore 177 


400 REM**SET COLOR AS REQUESTED 
410 SE. CN-1,C,L 

500 R E M * * G 0 FOR ANOTHER 
510 GOTO 310 


REMEMBER: how COLOR, SETCOLOR, and color registers go 
together in GRAPHICS 3. 


COLOR 

TO CHANGE 

TO SELECT 

REGISTER 

COLOR 

REGISTER 

0 

SETCOLOR 0 

COLOR 1 

1 

SETCOLOR 1 

COLOR 2 

2 

SETCOLOR 2 

COLOR 3 

3 

Not used in 

Not used in 


GR. 3 

GR. 3 

4 

SETCOLOR 4 

Background 

color 


Also remember that color register 2 controls the color and luminance of the text 

window. 

Questions_ 

1. In GRAPHICS 3, COLOR 1 is the color stored in color register 0. It begins as 

the color orange. How can you change COLOR 1 to medium pink?_ 

2. Color 2 is in color register (a)_. It begins as the color (b)_. How do you 

change it to dark green? (c)_. 

3. How do you change COLOR 3 to light purple?_ 

4. How do you change the screen background color to white (lightest gray)?_ 

5. Write a program to put a tiny rectangle at column 19, row 9. Then make it go 
through all luminances in all colors. 
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Answers 


1. SETCOLOR 0,4,8 

2. (a) 1 jb) light green (c) SETCOLOR 1,12,0 

3. SETCOLOR 2,5,14 

4. SETCOLOR 4,0,14 

5. We used COLOR 3 (color register 2). 


100 REM**ALL COLORS IN GR. 3 
110 GR. 3 

200 REM**PL0T ONE POINT 
210 COLOR 3: PLOT 19,9 

300 REM**ALL COLORS IN ALL LUMINANCES 

310 FOR C=0 TO 15 

320 FOR L = 0 TO 14 STEP 2 

330 SE. 2 , C , L 

340 NEXT L 

350 NEXT C 

400 REM**D0 IT AGAIN 
410 GOTO 310 


DRAW R UN€ 


You may plot a tiny rectangle anywhere on the screen. You can also draw a line 
from that place to any other place on the screen. Draw an orange line across the top 
of the screen this way: 


GR. 3 
COLOR 1 
PLOT 0,0 
DRAWT0 39,0 


DRRUJTO 


column 
Oto 39 


row 
Oto 19 
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If all goes well, you will see an orange line across the screen from column 0, row 
0 to column 39, row 0. 



Keep drawing. 




Yes, you can use SETCOLOR to change the color of any of these lines. 

• Change the top line to medium green: SETCOLOR 0,12,8 

• Change the middle line to darkish pink: SETCOLOR 1 ,4,4 

• Change the bottom line to medium purple: SETCOLOR 2,5,8 

• Change the background to lightest gray: SETCOLOR 4,0,14 
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Add some vertical lines. 


0 7 10 13 


COLOR 1 
PLOT 7,0 
DRAWTO 7,19 

COLOR 2 
PLOT 10,2 
DRAWTO 10,19 

COLOR 3 
PLOT 13,4 
DRAWTO 13,19 



READY 



Horizontal and vertical lines look smooth. Other lines look a little jagged. Add 
some diagonal lines. 


COLOR 1 
PLOT 14,5 
DRAWTO 39,19 

COLOR 2 
PLOT 14,19 
DRAWTO 39,5 



DRAWTO 39,5 
READY 
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Now use this program to draw patterns of lines in orange, light green, and dark 
blue. For each line select COLOR 1, COLOR 2 or COLOR 3, the place to PLOT the 
beginning of the line and the place to DRAWTO. 

100 REM**DRAW LINES IN GR. 3 
110 GR. 3 

300 REM**GET INFO ABOUT LINE 
310 PR. CHR$ ( 125) 

320 PR. "COLOR (1,2,3)";:IN. C 

330 PR. "PLOT (COL,ROW)";: IN. C1,R1 

340 PR. "DRAWTO (COL,ROW)";: IN. C2,R2 

400 REM**DRAW THE LINE 
410 COLOR C 
420 PLOT C 1 , R 1 
430 DRAWTO C2,R2 

500 REM**G0 FOR MORE INFORMATION 
510 GOTO 310 


Enter and run the program. Enter the information for each line as asked for in 
the text window. For example, here is the information to draw an orange line from 
the top left corner to the bottom right corner of the screen: 

COLOR (1,2,3)71 
PLOT (COL,ROW)?0,0 
DRAWTO (COL,ROW)?39,19 ■ 

Press RETURN and see it happen. 
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Questions__ 

1. Write the commands to tell the computer to draw a light green line from the 
bottom left corner to the top right corner of the screen. 


2. Write the commands to tell the computer to draw a medium purple line from 
6,6 to 24,6. 


3. Add block 200 to the DRAW LINES IN GR. 3 program so the computer will 
first ask these questions: 

COLOR 1 (COLOR,LUM)? 

COLOR 2 (COLOR,LUM)? 

COLOR 3 (COLOR,LUM)? 

BACKGROUND (COLOR,LUM)? 

This will let the user select the colors and luminances for COLOR 1, COLOR 
2, COLOR 3, and the background. The rest of the program is the same. 

Rnswers_ 

1. GR.3 
COLOR 2 
PLOT 0,19 
DRAWTO 39,19 
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2. We used COLOR 3, controlled by color register 2. 


GR. 3 

SE.2,5,8 
COLOR 3 
PLOT 6,6 
DRAWTO 24,6 


200 

REM**GET COLORS & LUMINANCES 


210 

PR. 

C H R $(125) 


220 

PR. 

"COLOR 1 (COLOR, LUM): 

IN. Cl,LI 

230 

PR. 

"COLOR 2 (COLOR,LUM)";: 

IN. C 2,L 2 

240 

PR. 

"COLOR 3 (COLOR,LUM)";: 

IN. C 3,L 3 

250 

PR. 

"BACKGROUND (COLOR,LUM)" 

;: IN. CB,LB 

260 

SE. 

0, C 1, L1 


270 

SE. 

1 ,C2,L2 


280 

SE. 

2 , C3 , L3 


290 

SE . 

4 , C B , LB 



use Reno & data to paint th€ scr€€N 


Here is a program to put a familiar pattern on the screen: 


100'REM**SOMETHING IN THE SKY 
110 GR. 3 

200 REM**READ STAR POSITION 
210 READ COL,ROW 

300 REM**PUT A STAR IN THE SKY 

310 COLOR 1 

320 PLOT COL,ROW 

400 REM**G0 FOR ANOTHER ONE 
410 GOTO 210 

1000 REM**STAR POSITIONS 

1010 DATA 9,9, 13,9, 16,10, 21,12 

1020 DATA 22,15, 28,15, 29,11 
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Run the program. In the top part of the screen you see the Big Dipper with seven 
orange stars. In the text window you see: ERROR-6 AT LINE 210. This is an out-of- 
data message-just ignore it and watch the Big Dipper. 

The star positions are in the DATA statements. Each star position is a pair of 
numbers for COL and ROW. 

1010 DATA9.9. 13T), 16,10,21,12 

COL,ROW COL,ROW and so on. 

Go ahead. Replace our constellation with your own. Put your star position in 
DATA statements beginning at line 1010. Look in Appendix D for a blank screen 
map to help you plot your star positions. 

Next, a program to draw boxes on the screen. Each box is defined by a PLOT 
followed by four DRAWTO's. You will even be able to include the color (1, 2, or 3) 
in DATA statements: 

100 REM**B0XES IN GR. 3 
110 GR. 3 

200 REM**READ BOX DESCRI 
210 READ C N , C 1,R1,C2,R2, 

300 REM**DRAW THE BOX 
310 COLOR CN 

320 PLOT C 1, R 1 
330 DRAWT0 C2,R2 
340 DRAWT0 C3,R3 
350 DRAWTO C4,R4 
360 DRAWTO C1,R1 

400 REM**G0 DRAW ANOTHER 
410 GOTO 210 

1000 REM**BOX DESCRIPTIONS 
1010 DATA 1,3,3,13,3,13,13,3,13 Box 1 

1020 DATA 2,10,10,20,10,20,15,10,15 Box 2 

1030 DATA 3,30,0,36,0,36,11,30,11 Box 3 
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We show data for three boxes. They will look this way on the screen: 



Ignore the out-of-data error message in the text window. 

Questions_ 

1. Change the SOMETHING IN THE SKY program to instruct the computer to 
read the color number (1, 2, or 3) along with the star position for each star. 
Put color numbers of your choice in the DATA statements. 

2. Write a program to put lines on the screen. Read the color (1, 2, or 3), starting 
position and end position for each line from DATA statements. 

3. Change our BOXES IN GR. 3 program so each box is defined by the screen 
position of its color (C), upper left corner (COL,ROW), and its width (W) and 
height (H): 

i- W-1 


H 


COL,ROW 
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A READ statement might look like this way: 

READ CN,COL,ROW,W,H 

Use your program to make these patterns: 



Rnswers 


The eyes and nose are single points. 
The mouth is a line. 



1. Change lines 210, 310, and the DATA statements. We did it this way: 

210 READ COL,ROW,C 
310 COLOR C 

1000 REM**STAR POSITIONS & COLORS 

1010 DATA 9,9,1 

1020 DATA 13,9,2 

1030 DATA 16,10,3 

1040 DATA 21,12,1 

1050 DATA 22, 15,2 

1060 DATA 28,15,3 

1070 DATA 29,11,1 


orange 



light green 


dar 

31 


dark blue 


orange 


orange 



light green I I dark blue 
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2. 100 REM**PAI NT LINES IN GR. 3 

110 GR. 3 

200 REM**GET DESCRIPTION 
210 READ C N,C1,R1,C2,R2 

300 REM**PAINT A LINE 
310 COLOR CN 
320 PLOT Cl,R1 
330 DRAWTO C2,R2 

400 REM**GO FOR ANOTHER LINE 
410 GOTO 210 


1000 

REM** 

CN,C1, R 1,C2,R2 

1010 

DATA 

1,0,0,39,0 

1020 

DATA 

2,0,1,39, 10 

1030 

DATA 

3,0,2,39, 17 

1040 

DATA 

1,0,3,26,19 

1050 

DATA 

2,0,4,13, 19 

1060 

DATA 

3,0,5,0,19 
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3. Change blocks 200, 300, and 1000 as follows: 


200 REM**READ BOX DESCRIPTION 
210 READ C N,C 0L,R OW,W,H 

300 REM**DRAW THE BOX 
310 COLOR CN 
320 PLOT COL,ROW 
330 DRAWTO C0L+W-1.R0W 
340 DRAWTO COL + W-1,ROW + H-1 
350 DRAWTO C0L,R0W+H-1 
360 DRAWTO COL,ROW 

1000 REM**BOX DESCRIPTIONS:CN,COL,ROW,W,H 
1010 DATA 1,3,3,11,11 
1020 DATA 2,10,10,11,6 
1030 DATA 3,30,0,7,12 


To draw a horizontal line make H = 0. 

To draw a vertical line, make W = 0. 

To plot a single point, make W = 0 and H = 0. 


BCVOND GRAPHICS 3 

GRAPHICS 3 is a low-resolution mode. You can paint with a finer brush in 
GRAPHICS 5 or GRAPHICS 7, using the same colors as in GRAPHICS 3. 

• GRAPHICS 5 (or GR. 5) gives you 80 columns (0 to 79) and 40 rows (0 to 39) 
in the top part of the screen, plus a text window. 

• GRAPHICS 7 (or GR. 7) gives you 160 columns (0 to 159) and 80 rows (0 to 
79) in the top part of the screen, plus a text window. 

For both GR. 5 and GR. 7, PLOT, DRAWTO, COLOR, and SETCOLOR work the 
same as in GR. 3. The normal foreground colors are orange (COLOR 1), light green 
(COLOR 2), and dark blue (COLOR 3). The normal background color is black. 
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EXPERIMENT! In Gr. 5 and GR. 7, put an orange point in the upper left corner, 
a light green point near the center, and a dark blue point in the bottom right corner 
of the screen. 


GR. 5 

GR. 7 

COLOR 1:PLOT 0,0 

COLOR 1:PLOT 0,0 

COLOR 2:PLOT 40,20 

COLOR 2:PLOT 80,40 

COLOR 3:PLOT 79,39 

COLOR 3:PLOT 159,79 


Look carefully to see the dark blue tiny rectangle in the bottom right corner of 
the graphics part of the screen! 

Draw some lines: 


GR. 5 

COLOR 3:PLOT 0,0 
DRAWTO 79,0 
COLOR 2:DRAWTO 0,39 
COLOR 3:DRAWTO 79,39 



GR. 7 

COLOR 3:PLOT 0,79 
DRAWTO 0,0 

COLOR 2:DRAWT0 159,79 
COLOR 3:DRAWT0 159,0 



REMEMBER: 




columns 

rows 

GRAPHICS 3 

40 

20 

GRAPHICS 5 

80 

40 

GRAPHICS 7 

160 

80 


Now try all our (and your) GRAPHICS 3 programs in GRAPHICS 5 and GRAPH¬ 
ICS 7. 
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Questions_ 

1. Here is a program to paint alternate orange and light green horizontal stripes 

on the entire top part of the screen: 


100 

REM**H0RIZ0NTAL 

STRIF 

’ES 

110 

GR. 3 



200 

REM**PAINT STRIF 

5 ES 


210 

FOR R0W = O TO 18 

STEP 

2 

220 

COLOR 1 



230 

PLOT 0, ROW: DRAWTO 

39,ROW 

240 

COLOR 2 



250 

PLOT 0,R0W+1: 

DRAWTO 39,R0W+1 

260 

NEXT ROW 



300 

REM**THAT'S ALL 



310 

END 




(a) If you change line 110 to 110 GR. 5 and run the program, what will the 

screen look like?_ 

(b) If you change line 110 to 110 GR. 7 and run the program, what will the 

screen look like?_ 

2. Write a program to paint alternating orange and light green vertical stripes 
across the entire top part of the screen in GRAPHICS 3. 

3. Modify the HORIZONTAL STRIPES program so the computer fills the entire 
top part of the screen with horizontal orange and light green stripes: 

(a) in GRAPHICS 5 

(b) in GRAPHICS 7 

4. Modify your VERTICAL STRIPES program so the computer fills the entire 
top part of the screen with vertical orange and light green stripes: 

(a) in GRAPHICS 5 

(b) in GRAPHICS 7 

5. Write a program to fill the screen with alternating diagonal orange and light 
green stripes. 
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Answers 


1. The striped part of the screen will be smaller in both cases. 


(a) (b) 



2. 100 REM**VERTI CAL STRIPES 
110 GR. 3 

200 REM**PAINT STRIPES 
210 FOR COL-O TO 38 STEP 2 
220 COLOR 1 

230 PLOT COL,0: DRAWTO COL,19 
240 COLOR 2 

250 PLOT COL+1,0: DRAWTO COL+1,19 
260 NEXT COL 

300 REM**THAT'S ALL 
310 END 

3. Here are the changes to HORIZONTAL STRIPES: 

(a) 1 10 GR. 5 

210 FOR R0W = 0 TO 38 STEP 2 

230 PLOT 0,ROW: DRAWTO 79,ROW 

250 PLOT 0.R0W+1: DRAWTO 79,R0W+1 


(bl 1 10 GR. 7 

210 FOR ROW-O TO 78 STEP 2 

230 PLOT 0,ROW: DRAWTO 159,ROW 

250 PLOT 0,ROW+ 1 : DRAWTO 159,R0W+1 
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4 and 5. No answers. You will know when your programs work by seeing 
the stripes on the screen! 


GRAPHICS 4 and 6 

GRAPHICS 3,5 and 7 are four-color modes: background color and three fore¬ 
ground colors available at any one time. GRAPHICS 4 and 6 are two-color modes: 
background color and only one foreground color. 

• GRAPHICS 3 has 40 columns (0-39) and 20 rows (0-19). 

• GRAPHICS 4 and 5 have 80 columns (0-79) and 40 rows (0-39). 

• GRAPHICS 6 and 7 have 160 columns (0-159) and 80 rows (0-79). 

You can use GRAPHICS 4 and 6 in the same way as GRAPHICS 3,5 and 7 except 
that you are limited to COLOR 1. Use SETCOLOR 0 to change the color. Here is a 
handy table showing the colors in GRAPHICS 3 through 7: 


GRAPHICS SCREEN 

GR.3,5,7 

GR. 4,6 

SE. 0 f 

COLOR 1 

COLOR 1 

SE. 1, 

COLOR 2 

Not available 

SE. 2, 

COLOR 3 

Not available 

SE. 4, 

Background 

Background 

TEXT WINDOW 



SE. 1, 

Luminance of 

Luminance of 


characters 

characters 

SE. 2, , 

Color & 

Color & 


luminance 

luminance 


Perhaps you wonder why anyone would use GRAPHICS 4 or 6. The reason is 
somewhat technical. The computer uses less memory in GRAPHICS 4 than in 
GRAPHICS 5. It uses less memory in GRAPHICS 6 than in GRAPHICS 7. Never¬ 
mind — use GRAPHICS 5 & 7 for now. When you become more advanced and 
write complex programs, you will sometimes have to use GRAPHICS 4 and 6. 
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GRAPHICS 8 

GRAPHICS 8 is a high resolution graphics mode with 320 columns (0-319) and 160 
rows (0-159). The price you pay is loss of color. GRAPHICS 8 is a one-color mode 
with the same color for background and foreground. Make the luminances differ¬ 
ent in order to see what you are plotting or drawing. Try this: 

Type GR. 8 and press RETURN. 



Now do the following, one line at a time, and watch what happens: 

PLOT 0,0: DRAWTO 319,159 
SE. 1,0,14 
SE. 1,0,0 
SE. 2,0,14 
SE. 2,5,14 
SE. 2,12,8 
SE. 1,0,14 
SE. 4,4,8 

In GRAPHICS 8, 

SETCOLOR 1, , Background color and luminance 

SETCOLOR 2,(T Foreground luminance only 

SETCOLOR 4, T Border color and luminance 


Brightest line 
Darkest line 
White screen 
Light purple screen 
Medium green screen 
Brightest line 
Pink border 
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VOU CRN €IIMINAT€ TH€ T€XT WINDOW 

In GRAPHICS 1 through 8, you can eliminate the text window and use the entire 
screen for graphics. To do so ( add 16 to the graphics mode number. You can do this 
only within a program. Try it with GR. 19, the full screen counterpart of GR. 3: 

100 REM**L00K! NO TEXT WINDOW 
110 GR. 19 

120 COLOR 1: PLOT 0,0 
130 DRAWT0 39,23 
140 GOTO 140 


Run this program. You will see a very jagged diagonal orange line from the top 
left corner of the screen to the bottom left corner of the screen. 

GRAPHICS 19 has 40 columns (0 to 39) and 24 rows (0 to 23) with no text 
window. Here is a table showing the number of columns and rows for all our 
graphics modes: 


GRAPHICS Columns Rows 


1 

20 

20 

17 

20 

24 

2 

20 

10 

18 

20 

12 

3 

40 

20 

19 

40 

. 24 

4 

80 

40 

20 

80 

48 

5 

80 

40 

21 

80 

48 

6 

160 

80 

22 

160 

96 

7 

160 

80 

23 

160 

96 

8 

320 

160 

24 

320 

192 


Modify our LOOK! NO TEXT WINDOW program for GRAPHICS 20,21,22,23 
and 24. Also write a program to try out GRAPHICS 17 and 18, using PRINT #6. 
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The GTIfl Chip 

Older ATARI computers used a graphics chip called CTIA, which provided the 
graphics modes discussed up till now. New computers, including the 600XL and 
800XL, contain a more powerful graphics chip called the GTIA chip. 

The GTIA chip provides three more graphics modes: 9,10 and 11. Each mode has 
80 columns numbered 0 to 79 and 192 rows numbered 0 to 191. We will briefly 
touch on modes 9 and 11, but not mode 10, which requires more advanced 
programming techniques using the POKE statement. 

In GRAPHICS 9, you can use any one of 16 colors at a time. After you choose a 
color, you can put up to 16 different shades (luminances) of the color on the screen. 
To see it, try this program: 


100 

REM 

**GRAPHIC 

S 

9 DE 

M0 


110 

GR. 

0 





200 

REM 

**ASK FOR 

A 

COL 

OR 

NUMBER 

210 

PR. 

"COLOR ( 

0 

TO 1 

5)" 

;: IN. CN 

300 

REM 

**P UT 16 

SHADES 

ON 

SCREEN 

310 

GR. 

9 





320 

SE. 

4 , CN , 0 





330 

FOR 

SHADE=0 

TO 

1 5 



340 

C 

0L0R SHAD 

E 




350 

U 

= 5*SHAD 

E 




360 

FOR C0L=W 

TO 

W + 4 



370 


PLOT W,0 

• 

• 

DRAWTO 

W, 191 

380 

N 

EXT COL 





390 

NEXT SHADE 





400 

REM 

**D0 NOTH 

ING LOOP 


410 

GOTO 410 






When you run the program, it begins this way: 



When you enter a color number and press RETURN, the entire screen becomes 
the color you chose. Then the computer draws vertical bands of that color with the 
darkest stripes on the left side of the screen and the lightest on the right side. Each 
strip is five columns wide. 
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In GRAPHICS 9, use the COLOR statement to select the shade (see line 340). 
Use SETCOLOR 4 to select the color. 

S€. 4,_,o 

i 

color, 0 to 15 


In GRAPHICS 11, you can put 16 different colors on the screen at the same time. 
You can also control the luminance. Try this program: 

100 REM**GRAPHICS 11 DEMO 
110 GR. 11 

200 REM**C0L0R BARS 

210 FOR C=0 TO 15 

220 COLOR C 

230 W = 1 2*C 

240 FOR R0W = W TO W+ll 

250 PLOT 0, ROW: DRAWT0 79,ROW 

260 NEXT ROW 

270 NEXT C 

300 REM**C0NTINUALLY CHANGE LUMINANCE 
310 FOR LUM = 0 TO 14 STEP 2 
320 SE. 4,0,LUM 

330 TD = 40 

340 FOR Z=1 TO TD: NEXT Z 
350 NEXT LUM 
360 GOTO 310 


RUN this program. First, the computer draws 16 color bars (the top one is black). 
The it zips through 16 luminances again and again and again—until you press 
BREAK. 

In GRAPHICS 11, use COLOR to select any of 16 colors and SETCOLOR 4 to 
select only the luminance of all colors on the screen: 

COLOR_ 

"" color number, 0 to 15 

SCTCOLOR 4, 0 f 



luminance, 0 to 14 
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S€IF T€ST 


Well, it looks as if you have painted yourself into another Self-Test. Have a colorful 
time! 

1. In graphics modes 1 through 8, the screen is split into two parts. 

(a) How many columns does the bottom part have?_ 

(b) How many rows does the bottom part have?_ 

(c) What is the bottom part of the screen called?_ 

2. For graphics modes 1 through 8, complete the following table showing the 
number of columns and rows in the top part of the screen: 


GRAPHICS 

1 

2 

3 

4 

5 

6 

7 

8 

Columns 

Rows 

20 

20 









3. In GRAPHICS 17 through 24, there is no text window. The entire screen is 
used for big letters (GR. 17 and GR. 18) or rectangles and lines of colored light 
(GR. 19 through 24). Complete the following table showing the number of 
columns and rows in GRAPHICS 17 through 24: 


GRAPHICS 

17 

18 

19 

20 

21 

22 

23 

24 

Columns 

20 








Rows 

24 









4. Write a GRAPHICS 1 program to ask for a name, "bounce " the name for the 
left edge of the screen to the right edge and back and then go back for a new 
name. Modify your program for GRAPHICS 2. 

5. Write a GRAPHICS 18 program to print ABCD on the screen. Use these 
colors: 

Background ABCD 

white orange light green dark blue red 
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6. Modify your program for question 5 to alternate the above colors with these 
colors: 


A B C D 

light blue medium pink medium green light purple 

7. Write direct statements to draw an orange line connecting the top left corner 
of the graphics screen to the bottom right corner: 

(a) GR. 3 

PLOT_,_ 

DRAWTO 


(c) GR. 7(ORGR. 6) 


(b) GR. 5(orGR. 4) 

PLOT , : DRAWTO 


(d) GR. 8 


8. Write a program to draw the star below in GRAPHICS 3,5 and 7. Make the 
star medium purple on a white background. Use a time delay of a few 
seconds to allow you to see the star in each graphics mode. 
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9. Write a program to draw triangles on the screen. You choose the graphics 
mode. Information for the triangles is contained in DATA statements. For 
each triangle, the data consists of the column and row for each vertex and the 
color number (1, 2 or 3]. For example: 

1010 DATA 3,4, 10,8,2,11, 1 

I 

color number 

10. Write a program to fill the screen with nested rectangles that alternate in 
color: orange, white, light green, white, dark blue, white and so on. Write 
programs for graphics modes 3,5,7,19,21 and 23. In GR. 19 the screen should 
look this way: 


o.i.2.3 

o 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


orange white light green white dark blue 

and so on. 


0123456789012345678901234567890123456789 
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Answers to Self-Test 


1. (a) 40 (b) 4 (c) text window 


2 . 


3. 


GRAPHICS 

1 

2 

3 

4 

5 

6 

7 

8 

Columns 

20 

20 

40 

80 

80 



320 

Rows 

20 

10 

20 

40 

40 



120 


GRAPHICS 

17 

18 

19 

20 

21 

22 

23 

24 

Columns 

20 

20 

40 

80 

80 

160 

160 

320 

Rows 

24 

12 

24 

48 

48 

96 

96 

192 


4. Here is our GRAPHICS 1 program: 


100 REM**BOUNCE NAME RIGHT & LEFT 

110 GR. 1 

120 DIM NAME $(19) 

200 REM**GET THE NAME 
210 PR. CHR$( 125) 

220 PR. "YOUR NAME"; : IN. NAME$ 

300 REM**COMPUTE LENGTH OF NAME 
310 LN = LEN(NAMES) 

400 REM**PUT NAME AT LEFT EDGE 
410 ROW = 10 

420 POS. 0,ROW: PR. #6; NAME $ 

430 GOSUB 910 


(continued) 
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500 REM**M0VE NAME TO RIGHT EDGE 
510 FOR C0L = 1 TO 20-LN 
520 POS. COL-1,ROW: PR. #6; " " 
530 POS. COL,ROW: PR. #6; NAME $ 
540 GOSUB 910 
550 NEXT COL 

600 REM**MOVE NAME TO LEFT EDGE 
610 FOR COL=19-LN TO 0 STEP -1 
620 POS. COL + LN, ROW: PR. #6; " 11 
630 POS. COL,ROW: PR. #6; NAME $ 
640 GOSUB 910 
650 NEXT COL 

700 REM**GO GET ANOTHER NAME 
710 GOTO 210 

900 REM**SOUND DELAY SUBROUTINE 
910 SOUND 0,100-5*COL 
920 TD = 20 

930 FOR Z=1 TO TD: NEXT Z 
940 SOUND 0,0,0,0 
950 RETURN 


To try our program in GRAPHICS 2, make these changes: 


110 GR. 2 
410 ROW = 5 


5. 100 REM**ABCD IN GRAPHICS 18 

110 GR. 2 


200 REM**BACKGROUND COLOR 
210 SE. 4,0,14 


300 

REM**ABCD IN 

4 COLORS 



210 

PR. 

#6 ; 

"A"; 




320 

PR. 

#6. 

" b"; 

lower case 


330 

PR. 

#6; 

"C"; 

inverse 

video 

caps 

340 

PR. 

#6; 

"d"; 

inverse 

video 

lower case 


400 REM**DO NOTHING LOOP 
410 GOTO 410 
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6. Make changes beginning at block 400. 


400 REM**CHANGE COLORS 

410 SE. 0,9,8 

420 SE. 1,4,8 

430 SE. 2,12,8 

440 SE. 3,5,14 

450 GOSUB 910 

500 REM**0RIGINAL COLORS 

510 SE. 0,2,8 

520 SE. 1,12,14 

530 SE. 2,8,0 

540 SE. 3,2,6 

550 GOSUB 910 

600 REM**G0 AROUND AGAIN 
610 GOTO 410 

900 REM**TI ME DELAY SUBROUTINE 
910 TD = 1000 
920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 


7. (a) GR. 3 

PLOT 0,0 
DRAWTO 39,19 

(c) GR. 7 
PLOT 0,0 
DRAWTO 159,79 


(b) GR5 
PLOT 0,0 
DRAWTO 79,39 

(d) GR. 8 

PLOT 0,0: DRAWTO 319,159 


In GR. 8 you might also want to make the foreground luminance very 
light or very dark. 
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8. 100 REM**STAR IN GR. 3,5,7 

110 FOR GR=3 TO 7 STEP 2 
120 GR. GR 

130 SE. 4,0,14:SE.0,5,8 

140 COLOR 1: PLOT 10,0 

150 DRAWTO 18,19 

160 DRAWTO 0,6 

170 DRAWTO 20,6 

180 DRAWTO 2,19 

190 DRAWTO 10,0 

200 GOSUB 910 

210 NEXT GR 

300 REM**GO DO IT AGAIN 
310 GOTO 110 

900 REM**TI ME DELAY SUBROUTINE 
910 TD = 2000 
920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 


9. We wrote our program for GRAPHICS 7. 

100 REM**TRIANGLES 
110 GR. 7 

200 REM**READ TRIANGLE DESCRITPION 
210 READ Cl ,R1,C2,R2,C3 , R3,CN 

300 REM**DRAW TRIANGLE 
310 COLOR CN 
320 PLOT C1,R1 
330 DRAWTO C2,R2 
340 DRAWTO C3,R3 
350 DRAWTO C1,R1 

400 REM**GO DRAW ANOTHER 
410 GOTO 210 


(continued) 
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1000 REM**TRI ANGLE DESCRIPTIONS 
1010 DATA 3,4,10,8,2,11,1 
1020 DATA 10,7,14,1,7,2 
1030 DATA 20,0,25,5,15,5,3 


10. As usual, we leave at least one question without an answer. Good luck on this 
one. We know you can do it. 




Numbers 


In this chapter, you will learn to use the mysterious and unpredictable RND 
function. You will use the RND function to compute random numbers and use them 
in programs to surprise and delight yourself and your friends. With RND, your 
programs can take on an air of friendly unpredictability, and people will wonder.. .what 
next? 

When you finish this chapter, you will be able to: 


• Use the RND function to compute random whole numbers 

• Tell the computer to make random music that sounds awful 

• Make names and other strings of characters meander aimlessly about the 
screen 

• Invent your own random constellations (you get to name them) 

• Splash random blips of color here, there, anywhere on the screen 

• Create ever-changing symmetric mandalas 

• Put random color stripes or rectangles on the screen 

• Simulate coin flipping and dice rolling 

• Create adventurers for games such as Dungeons & Dragons, RuneQuest, 


and Tunnels & Trolls 
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RANDOM NUMBERS 


Random numbers are numbers that are chosen at random from a given set of 
numbers. A die has six sides, numbered 1 through 6. Roll one die to get a random 
number from 1 to 6. 



Flip a coin — two possibilities: heads or tails. If it comes up HEADS, call it 1; if it 
comes up TAILS, call it 2. Flipping a coin gives a random number: 1 or 2. 

In ATARI BASIC you may use the RND function to get a random number. The 
following program uses the RND function to print random numbers on the screen: 

10 
20 
30 
40 
50 


We ran the program twice. Here is what happened: 

First RUN: Second RUN: 


REM**RND NUMBERS 
GR. 0 

FOR K=1 TO 10 
PRINT RND(0) 
NEXT K 


This program computes 
a sample of 10 
RND numbers. 




0.2126922607 

0.570022583 

0.2030334472 

0.7605285644 

0.793182373 

0.1399536132 

4.089355468E-03 

0.5390777587 

0.4656829833 

0.8837738037 


0.8061065673 

0.4537811279 

0.3421630859 

0.1077270507 

0.6961517333 

0.7892456054 

0.6032562255 

0.7721710205 

0.8114471435 

0.1174926757 


READY 


READY 
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Two runs produced very different sets of numbers. That's the idea of random 
numbers. They are, well, random! 



Look over the two lists of numbers. Every number is greater than zero. Yes, 
even 4.089355468E-03. This is a floating point number. Every number is less than 
one. Another way to read 4.089355468E-03 is 0.00489355468. (See Appendix B for 
more information on floating point numbers.) 

From the evidence, it seems that an RND number is greater than zero and less 
than one. However, we haven't shown much evidence — only 20 numbers. We 
suggest you run a bunch of RND numbers on your ATARI to get more evidence. 
(But remember! Evidence is not proof.) 

It's true. RND numbers are greater than zero and less than one. Another way to 
say it: RND numbers are between 0 and 1. Or, in still another way: 

0 < RND(0) <1 

Use any number in parentheses following RND. This number has no effect, but 
still must be there. We will usually put zero (0) in parentheses. 

RND numbers between zero and one are not always convenient. Usually, we 
want whole numbers in some range. For example, we might want the numbers 
1,2,3,4,5 and 6 at random; or decimal digits 0 through 9; or numbers from 1 to 100. 

Hmmm.. .RND(0) is between 0 and 1, but is never 0 or 1. Therefore, 10*RND(0) 
must be a number between 0 and 10, but never 0 and never 10. Do you agree? If not, 
run this program a few times: 

10 
20 
30 
40 
50 
60 


REM**10 TIMES 
GR. 0 

FOR K = 1 TO 10 
R- = RND ( 0 ) 
PR. R, 10 * R 
NEXT K 


RND 
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For each number between 0 and 10, the integer (whole number) part is a single 
digit. Wouldn't it be nice if you could tell the computer to throw away the 
fractional part and keep the integer part? 

Well, you can. ATARI BASIC has a clever and useful function called INT. Here 
are some examples: 


INT(3) = 3 

INT(4.46548461) = 4 


INT(7) = 7 

INT(0.637207031) = 0 
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If X is any positive number (or zero), INT(X) is the integer part of X. 

Instead of a number, you can put any numeric variable, function or expression 
in parentheses following INT. 


INT(-) 

i 

Any ATARI BASIC number, numeric variable, 
function, or expression. 


So, it is OK to write INT(10*RND(0)). 

RND(O) is a random number between 0 and 1. 

10*RND(0) is a random number between 0 and 10. 

INT(10*RND(0)) is a random integer from 0 to 9. 

Now run this program to put random digits (0 to 9) on the screen: 

10 REM**RANDOM DIGITS, 0 TO 9 
20 GR. 0 

30 FOR K=1 TO 10 
40 PR. I NT(10*RND(0) 

50 NEXT K 


We ran the program twice and got these results: 

First RUN: Second RUN: 



READY 


READY 
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Questions_ 

1. The RND function gives a random number between_and_ 

2. Complete the following: 

(a) 2*RND(0) is between_and_. 

(b) 6*RND(0) is between_and_. 

(c) 100*RND(0) is between_and_. 

3. Complete the following: 

(a) INT(2*RND(0)) is_or_. 

(b) INT(6*RND(0)| + 1 is_or_or_or_or_or 

(c) INT(100*RND(0)) is an integer from_to_. 


Answers_ 

1. The RND function gives a random number between 0 and 1. RND(O) is never 
0 or 1, but always somewhere between. 

2. (a) 2*RND(0) is between 0 and 2. Never 0 and never 2. 

(b) 6*RND(0) is between 0 and 6. Never 0 and never 6. 

(c) 100*RND(0) is between 0 and 100. Never 0 and never 100. 

3. (a) INT(2*RND(0)) is 0 or 1. These are the only possible values. 

(b) INT(6*RND(0)) + 1 is 1 or 2 or 3 or 4 or 5 or 6. Later in this chapter we will 
use this to simulate (imitate) rolling one die. 

(c) INT(100*RND(0)) is an integer from 0 to 99. It can be 0 or 1 or 2 or 3, and 
so on, up to 99. 
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EXPERIMENT! Use the following program to print random numbers from 1 to 
N, where you supply the value of N: 


100 REM**RND NUMBERS, 1 TO N 
110 GR. 0 

200 REM**TELL WHAT TO DO 
210 PR. CHR$(125) 

220 PR. "I'LL PRINT RND NUMBERS FROM" 
230 PR. "1 TO N. YOU SELECT N." 

240 PR.: PR. "N = " ; : IN. N 

300 REM**PRINT THE RND NUMBERS 
310 PR. 

320 PR. I NT(N*RND(0)) + l, 

330 FOR Z=1 TO 50: NEXT Z 
340 GOTO 320 


Just to see what happens, also try this variation of line 320, with a semicolon at the 
end: 


320 PR. INT(N*RND(0)) + 1; 


RANDOM MUSIC 

OK, so RND gives random numbers. But what are they good for? How about some 
random music? 


100 REM**RAND0M MUSIC 
110 GR. 0 

120 N = INT(255*RND(0))+l 
130 SO. 0,N,10,10 
140 TD = 100 

150 FOR Z=1 TO 100: NEXT Z 
160 SO. 0,0,0,0 
170 GOTO 120 
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Line 120 assigns to N a value that is a random integer in the range 1 to 255. Enter 
and run the program. You will hear “music" consisting of a succession of random 
tones. To eliminate high tones you can hardly hear, change line 120 as follows: 

120 N = INT(200*RND(0)) + 56 

This gives random integers from 56 to 255. If you want a few more of the higher 
notes, change line 120 again: 

120 N = INT(220*RND(0)) + 36 

Now N can be a random integer from 36 to 255. 

Let's hear how it sounds with a random duration for each tone. Change line 140 
as follows: 

140 TD = INT(190*RND(0)) + 11 

This gives a random time delay from 11 to 200. 

One more thing. Add some color. Make the screen color and luminance random. 
Add the following lines: 

133 C = INT(16*RND(0)) 

135 L = INT(16*RND(0)) 

136 SE.2,C,L 

Now, if you like chaos, run the modified program and enjoy what you see and 
hear. 


Questions_ 

1. For each of the following, describe the possible random numbers. 

(a) INT(3*RND(0)) + 2 

Possible numbers:_ 

(b) INT(10*RND(0)) +10 

Possible numbers:_ 

(c) 2*INT(8*RND(0)) 

Possible numbers:_ 
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2. Complete the following program to do random "bursts" of music. Each burst 
is a rapid sequence of tones from a LO tone to a HI tone. (Remember, LO 
tones have higher numbers than HI tones.) Let the HI tone be a random 
number from 10 to 100 and the LO tone be a number from 101 to 255. 


100 

110 

REM**RAND0M BURSTS 
GR. 0 

OF 

MUSIC 

200 

REM**C0MPUTE L0 & 

HI 

TONE NUMBERS 

210 

L0 = 



220 

HI = 



300 

310 

REM**PLAY SOME MUSIC 
FOR N = 


320 

330 

SO. 0 , N,10,10 
NEXT N 



400 

410 

REM**G0 FOR NEW L0 
GOTO 210 

& 

HI 


Answers_ 

1. (a) 2,3,4 (b) 10,11,12,13,14,15,16,17,18,19 

(c) 0,2,4,6,8,10,12,14 

2 . 210 L0 = I NT ( 1 55*RND ( 0 ) ) +101 
220 HI=INT(91*RND(0))+10 
310 FOR N = L0 TO HI STEP -1 

Did you forget STEP - 1? Remember, low notes have high numbers and high 
notes have low numbers. The value of LO is always more than the value of 
HI, so you must use STEP - 1. 
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SKITTCRV NRM€ 

Use random numbers to put a name here, there, anywhere on the screen. Here for 
a moment, there for a moment, somewhere else for a moment. 

100 REM**SKITTERY NAME 
110 DIM NAME $(20) 

120 GR. 0 

200 REM**GET A NAME 
210 POKE 752,0 

220 PR. "WHAT IS YOUR NAME";:IN. NAME$ 

230 POKE 752,1 

300 REM**RANDOM SCREEN POSITION 
310 COL - I NT(40*RND(0) ) 

320 ROW = I NT(24*RND(0) ) 

500 REM**PRI NT NAME AT COL,ROW 
510 PR. CHR$( 125) 

520 POS. COL,ROW: PR. NAME$ 

600 REM**DELAY, THEN GO AROUND 
610 TD = 200 

620 FOR Z=1 TO TD: NEXT Z 
630 GOTO 310 


When you run the program, it begins this way: 



Type your name, press RETURN, and watch your name cavort about the screen. 
Press BREAK to stop the action and delete only line 510. 

Type 510 and press RETURN. Run it again to see what happens. 

Now try the program in GRAPHICS 17. We tried it with this program: 

i 

100 REM**SKITTERY NAME IN GR. 17 
110 DIM NAME $(20) 

120 GR. 0 

200 REM**GET A NAME 

220 PR., "WHAT IS YOUR NAME"; : IN. NAME $ 


(continued) 
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300 

310 

320 

500 

510 

520 

600 

610 

620 

630 


REM* 

*RAND0M 

SC 

RE 

EN P 

COL 

= I NT(20 

*R 

ND 

(0)) 

ROW 

- I NT(24 

*R 

ND 

(0) ) 

REM* 

*PRI NT NAM 

E 

AT C 

GR. 

17 




POS . 

COL,ROW 

• 

• 

PR 

. #6 

REM* 

*DELAY, 

TH 

EN 

GO 

TD = 

200 




FOR 

rvi 

ii 

— i 

o 

— i 
o 

• • 

N 

EXT 

GOTO 

310 





OS ITI ON 





Run this program, enter someone's name, and watch the name scamper about 
the screen in big letters. Then make these changes: 


Delete line 510. 

Add this line: 230 GR. 17 


With these changes, the computer will enter GRAPHICS 17 at line 230. Since 

line 510 is gone, the screen will not be cleared each time before the name is printed. 

So the name will remain. The screen will slowly fill with the name of your choice. 

Questions_ 

1. Change the SKITTERY NAME program so that a random screen color is 
chosen each time before the name is printed. Make the name itself either 
very light or very dark (your choice). 

2. Change the SKITTERY NAME IN GR. 17 program to a SKITTERY NAME IN 
GR. 18 program. Now the letters will be even bigger! 

3. Change the SKITTERY NAME IN GR. 17program so the name is printed in a 
random color with random luminance. 

4. Sometimes a name is printed so close to the right edge of the screen that it is 
broken and part of the name appears on the left edge of the next line down. 
For example, here is Annalee's name printed at column 38: 

Column 38 
I 

AN 

NALEE 

I 

Column 2 
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(a) Change the Graphics 0 SKITTERY NAME program so the name is not 
printed so close to the right edge that it is broken. 

(b) Change the SKITTERY NAME IN GR. 17 program so the name is not 
printed so close to the right edge that it is broken. 


Answers 


1. We make the name very light: 230 SE. 1,0,14. We put our random screen 
color in block 400. 

400 REM**RANDOM SCREEN COLOR 
410 C = INT(16*RND(0)) 

420 SE. 2,C,8 

More variations: Random luminance, random border color and/or luminance, 
random sound. 

2. Make these changes: 

320 ROW = INT(12*RND(0)) 

510 GR. 18 


3. Delete line 510 and add these lines: 


400 REM‘*RANDOM COLOR & LUMINANCE 
410 GR. 17 

420 C = INT(16*RND(0)) 

430 L = INT(16*RND(0)) 

440 SE. 0,C,L 


Also try a white background: 450 SE. 4,0,14 


4. We leave this one for you to ponder. Here's a hint: Use the LEN function in 
the line that computes the value of COL. 
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RANDOM COLOR BLIPS 

The following program plots tiny rectangles on the screen in random places and in 
random colors: 


100 

REM* 

*RAND0M 

COLOR B 

LIPS 

110 

GR. 

19 



300 

REM* 

*RAND0M 

SCREEN 

POSITION 

310 

COL 

= I NT(40 

*R ND(0) 

) 

320 

ROW 

= I NT(24 

* R N D ( 0 ) 

) 

400 

REM* 

*RAND0M 

COLOR 


410 

C = 

I NT(3*RND(0)) + l 


420 

COLOR C 



500 

REM* 

*PL0T TH 

E BLIP 


510 

PLOT 

COL,ROW 



600 

REM* 

*DELAY, 

THEN DO 

ANOTHER 

610 

TD = 

100 



620 

FOR 

Z=1 TO TD: NEXT 

Z 

630 

GOTO 

310 




Run this program and watch the screen fill up slowly with orange, light green 
and dark blue tiny rectangles. Then, add some sound. Change block 600 as 
follows: 


600 REM**S0UND,DELAY,GO AROUND 
610 TD = 1 

620 N = I NT( 255*RND(0) ) + l 
630 SO. 0,N,10,10 
640 FOR Z=1 TO TD: NEXT Z 
650 GOTO 310 
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Try this variation with different values for TD in line 610. Experiment with 
different values of N in line 620. 

Next, change the program as follows: 


100 

GR. 

3 


600 

REM* 

*S0UND,DELAY,GO 

AROUND 

610 

TD = 

1 


620 

N = 

INT(255*RND(0))+l 

630 

SO. 

0 , N , 1 0,1 0 


640 

FOR 

Z=1 TO TD: NEXT 

Z 

650 

SO. 

0,0,0,0 


660 

GOTO 

310 






Note we didn't ask you to change line 320, even though you will now have a split 
screen. The computer will still "plot" points in rows 20,21,22 and 23. However, 
you won't see them because they are obscured by the text window. Go ahead and 
run this program. While the program is running, press BREAK. The computer 
stops and you can look at a static pattern. 

Type CONT and press RETURN. 

The pattern continues. Remember: You can CONTinue a program after pressing 
BREAK by typing CONT. While the program is stopped, change the value of TD in 
line 610, then type CONT and press RETURN. Do this several times until you get 
just the right sound for your ears. 


Press BREAK to stop the program. 

Type CONT to continue it from the place it stopped. 


A mandala is a symmetrical pattern, nice to look at. A giant snowflake is 
beautifully symmetric about its center. Snowflakes are great mandalas but melt all 
too soon. Use this program to put an everchanging mandala on the screen. 


100 REM**MANDALA, EVERCHANGING 
110 GR. 19 

300 REM**H0RIZ0NTAL & VERTICAL OFFSET 
310 H = INT(20*RND(0)) 

320 V = INT(12*NRD(0) ) 


(continued) 
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400 

REM** 

RANDOM 

CO 

LOR 


410 

C - I 

NT ( 3* 

RN 

D ( 

0) ) + l 


420 

COLOR 

C 





500 

REM** 

TURN 

ON 

F 

OUR BLIPS 

510 

PLOT 

1 9-H, 

1 1 

-V 



520 

PLOT 

1 9-H, 

1 2 

+ V 



530 

PLOT 

20 + H, 

1 1 

-V 



540 

PLOT 

20 + H, 

1 2 

+ V 



600 

REM** 

DELAY 

5 

TH 

EN GO 

AROUND 

610 

TD = 

1 00 





620 

FOR Z 

= 1 TO 

T 

D: 

NEXT 

Z 

630 

GOTO 

310 






Run the program. The computer turns on four blips at a time, symmetrical in the 
center of the screen. If it is happening too fast for you to see this, increase the time 
delay (TD) in line 610. If you want things to happen more rapidly, decrease the 
value of TD. 

Lines 310 and 320 compute random values for H (horizontal offset) and V 
(vertical offset). H can be any integer from 0 to 19; V can be any integer from 0 to 11. 
H and V are used in block 500 to plot the four blips. 

In line 510, the possible values of 19 - H are 0 (when H is 19) to 19 (when H is 0). 
The possible values of 11 - V are 0 (when V is 11) to 11 (when V is 0). So line 510 plots 
a blip in the upper left quadrant of the screen. 

You can probably figure out that line 520 puts a blip in the lower left quadrant, 
line 530 puts a blip in the upper right quadrant, and line 540 puts a blip in the lower 
right quadrant. 



510 PLOT 19 - H,11 - V-■ 



■-530 PLOT 20 + H,11 - V 


520 PLOT 19 - H,12 + V 


540 PLOT 20 + H,12 + V 
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EXPERIMENT! Try these variations. 


VARIATION 1. Change block 300 this way: 


300 REM**H0RIZONTAL & VERTICAL OFFSET 
310 H = I NT(20*RND(0)) 

320 V - I NT( 1 3*RND(0)) 

325 V = INT(V*RND(0)) 


V will still be a number from 0 to 11, but smaller values are more likely — the 
smaller, the more likely! This will change the shape of the mandala, make it look 
wider and less tall. 


VARIATION 2. This one biases the value of H toward smaller values. Use this 
block 300 to make the mandala seem taller and narrower. When we ran it, we 
saw "faces" appear early in the run. 


300 

310 

315 

320 


REM**H0RIZONTAL & V 
H = I NT(21*RND(0)) 

H = I NT(H*RND(0)) 

V = I NT(12*RND(0)) 


RTI CAL OFFSET 





VARIATION 3. Combine the previous two variations to get a "round " looking 
mandala. 


300 REM**H0RIZ0NTAL & VERTICAL OFFSET 
310 H = I NT(21*RND(0)) 

315 H - I NT(H*RND(0)) 

320 V = I NT( 1 3*RND(0)) 

325 V = I NT(V*RND(0)) 
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VARIATION 4. This leaves a "black cross" in the center. 

300 REM**H0RIZONTAL & VERTICAL OFFSET 
310 H = I NT(20*RND(0) ) 

315 H = I NT(H*RND(0)) + l 
320 V - I NT(12*R ND(0) ) 

325 V = I NT{V*RND(0)) + l 


MORE VARIATIONS. Try these: 

VARIATION 5. Instead of a black background, use a white background, or a 
background of the color of your choice. 

VARIATION 6. Select your own colors for COLOR 1, COLOR 2 and COLOR 
3. 


Questions_ 

1. In the RANDOM COLOR BLIPS program, you choose the screen colors. Add 
block 200 to select colors for COLOR 1, COLOR 2, COLOR 3 and the 
background. 

2. Modify the RANDOM COLOR BLIPS program for (a) GRAPHICS 21 and (b) 
GRAPHICS 23. 

3. Add sound to the MANDALA, EVERCHANGING program. Make the tone 
number equal to H*V + 30. 

4. In the MANDALA, EVERCHANGING PROGRAM, change block 400 so the 
three foreground screen colors and luminances are selected at random. 
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Answers 


1. We choose dark purple, medium green and light pink on a white back¬ 
ground: 


200 REM**SELECT SCREEN COLORS 

210 SE. 0,5,2 

220 SE. 1,12,8 

230 SE. 2,4,12 

240 SE. 4,0,14 


You may also choose random colors and luminances. Whatever colors you 
choose, if you let the program run for several minutes, the screen colors will 
change every few seconds. Try it — it's a nice effect. 


2. Make these changes: 

(a) 110 GR. 21 

310 COL = I NT(80*RND(0)) 
320 ROW = I NT(48*RND(0)) 

(b) 1 10 GR. 2 3 

310 COL = I NT(160*RND(0)) 
320 ROW = I NT(96*RND(0)) 

3. We did it by changing block 600: 


600 REM**S0UND,DELAY,GO AROUND 

610 TD - 100 

615 SO. 0 , H*V + 30,10,10 

620 FOR Z=1 TO TD: NEXT Z 

625 SO. 0,0,0,0 

630 GOTO 310 


Also try: 610 TD = 1 

And try some values of TD between 1 and 100. 
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4. We want random colors and luminances for color registers 0,1 and 2. Look 
for our new block 400 in this complete program: 

100 REM**MANDALA, EVERCHANGING 
1 10 GR. 19 

300 REM**H0RIZ0NTAL & VERTICAL OFFSET 
310 H = I NT(21*RND(0)) 

315 H = I NT(H*RND(0)) 

320 V = I NT(13*RND(0 ) ) 

325 V = I NT(V*RND(0)) 

400 REM**RAND0M COLORS 

410 S E . 0 , I N T(1 6*RND(0)),IN T(16*R ND(0)) 

420 SE. 1 , I NT(16*RND(0)),I NT(16*RND(0)) 

430 SE . 2, INT(1 6*RND(0)),INT(16*RND(0)) 

440 COLOR I NT(3*RN D(0)) +1 

500 REM**TURN ON FOUR BLIPS 
510 PLOT 1 9-H, 1 1 -V 
520 PLOT 1 9-H,12 + V 
530 PLOT 20 + H,11 -V 
540 PLOT 20+H,12+V 

600 REM**S0UND DELAY,GO AGAIN 
610 TD = 1 

615 SO. 0,H*V+30,10,10 
620 FOR Z=1 TO TD: NEXT Z 
625 SO. 0,0,0,0 
630 GOTO 310 


We like this last program a lot. We like it even better with a white background: 
120 SE.4,0,14 

After watching it on a white background, we thought, Hmmm...how about 
making the background change randomly?" So we did: 


450 SE.4,INT(16*RND(0)),14 
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Try all variations: black background, white background, random background. 
And try other values of TD in line 610. 


610 TD = 2 
610 TD = 4 
610 TD = 8 
and so on 


Slower, 
and slower, 
and slower, 
and so on. 


Try some different sound effects. For example: 

600 REM**S0UND DELAY, GO AGAIN 
610 TD = 1 
613 FOR K=30 TO 32 
615 SO. 0,H*V+K, 

617 NEXT K 
620 FOR Z=1 TO TD: 

625 SO. 0,0,0,0 
630 GOTO 310 

My, how time flies. We began watching MANDALA, EVERCHANGING on 
Tuesday and here it is Sunday already. How did that happen? 


•or 33 or 34 or . . . 



ZRPPV ARTIST 


Zappy Artist loves to paint stripes. He began by painting horizontal stripes from 
somewhere on the screen to somewhere else on the screen. He likes to paint on a 
white screen. He also likes to see the colors change a lot. 


100 

REM* 

* ZAP P Y ARTIST 

#1 





110 

GR. 

19 







120 

SE. 

4,0,14 







300 

REM* 

*RAND0M 

COORD 

INAT 

ES 




310 

ROW 

= I NT(24 

*RND ( 

on 





320 

C0L1 

= I NT(40*RND 

(0) ) 





330 

C0L2 

- I NT(40*RND 

(0)) 





400 

REM* 

*RAND0M 

COLORS 





410 

SE.O 

,I NT(16* 

RND (0 

)),I 

NT ( 

16* 

RND 

(0)) 

420 

SE. 1 

,I NT(16* 

RND (0 

)),I 

NT ( 

16* 

RND 

(0)) 

430 

SE.2 

,I NT(16* 

RND (0 

)),I 

NT ( 

16* 

RND 

(0) ) 

440 

COLOR I NT(3* 

RND (0 

) ) + l 






(continued) 
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500 REM**DRAW A LINE 
510 PLOT COL 1,ROW 
520 DRAWTO C0L2,R0W 

600 REM**DELAY & GO AGAIN 
610 TD = 1 

620 FOR Z=1 TO TD: NEXT Z 
630 GOTO 310 

OK, run it and watch Zappy Artist zap horizontal lines all over the screen. 
Sometimes he zaps from left to right, sometimes from right to left, depending on 
the values of COL1 and COL2. Try other time delays (TD) in line 610. 

Well, as you might expect, Zappy got tired of horizontal lines and switched to 
vertical lines for a while. Then he got tired of that and dallied for a time with 
alternate horizontal and vertical lines. He does it like this: 


100 REM**ZAPPY ARTIST #2 
110 GR. 19 
120 SE. 4,0,14 

200 REM**DRAW TWO LINES 
210 G0SUB 710 
220 GOSUB 810 

600 REM**DELAY & GO AGAIN 
610 TD = 1 

620 FOR Z=1 TO TD: NEXT Z 
630 GOTO 210 

700 REM**HORIZ0NTAL LINE SUBROUTINE 
710 ROW = I NT(24*RND(0)) 

720 COL 1 = I NT(40*RND(0)) 

730 C0L2 = I NT(40*RND(0)) 

740 GOSUB 910 

750 PLOT COL 1,ROW: DRAWTO C0L2,R0W 
760 RETURN 





(continued) 
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800 REM**VERT I CAL LINE SUBROUTINE 
810 COL = I NT(40*RND(0)) 

820 ROW 1 = I NT(24*RND(0) 

830 R0W2 = I NT(24*RND(0) 

840 GOSUB 910 
850 PLOT C0L.R0W1: DRAWTO C0L.R0W2 
860 RETURN 

900 REM**RANDOM COLORS SUBROUTINE 
910 SE.O,I NT(16*RND(0)),I NT(16*RND(0)) 
920 SE. 1 , I NT(16*RND(0)),I NT(16*RND(0)) 
930 SE.2,I NT(1 6*RND(0)),I NT(16*RND(0)) 
940 COLOR I NT(3*RND(0)) + l 
950 RETURN 



Questions_ 

1. In ZAPPY ARTIST # 2, block 200 calls two subroutines. Briefly explain what 
happens as the computer obeys the instructions in block 200. 


2. Write ZAPPY ARTIST #3, in which Zappy Artist draws random lines from 
anywhere on the screen to anywhere else. These lines can be horizontal, 
vertical, or at an angle. 
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3. Write ZAPPY ARTIST # 4, in which Zappy Artist draws random lines where 
each line is connected to the previous line. 



Answers_ 

1. Line 210 (210 GOSUB 710) calls the HORIZONTAL LINE SUBROUTINE 
which draws a random horizontal line. This subroutine calls the RANDOM 
COLORS SUBROUTINE. After the line is drawn, the computer returns to 
line 220 and calls the VERTICAL LINE SUBROUTINE. 

2. Fortunately, we had stored ZAPPY ARTIST # 1 on both tape cassette and 
diskette. We loaded it and screen-edited it to get ZAPPY ARTIST #3. Time: 
less than two minutes: 


100 

REM* 

*ZAP P Y 

ART 

1ST 

#3 

110 

GR. 

19 




120 

SE . 

4,0,14 




300 

REM* 

*RAND0M 

COORD 

INATES 

310 

COL 1 

= I NT ( 

40* 

RND 

(0) ) 

320 

ROW 1 

= I NT ( 

24* 

RND 

(0) ) 

330 

C0L2 

= I NT ( 

40* 

RND 

(0) ) 

350 

R0W2 

= I NT ( 

24* 

RND 

(0) ) 
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400 REM**RAND0M COLORS 
410 SE.O,INT(16*R ND(0)),I NT(16*R ND(0)) 
420 SE.1,I NT(16*RND(0)),I NT(16*RND(0)) 
430 SE.2, I NT(1 6*RND(0)),IN T(16*RND(0)) 
440 COLOR INT(3*RND(0))+l 

500 REM**DRAW A LINE 
510 PLOT COL 1,ROW 1 
520 DRAWTO COL2,ROW2 

600 REM**DELAY & GO AGAIN 
610 TD = 1 

620 FOR Z=1 TO TD: NEXT Z 
630 GOTO 310 



3. We leave this one for you. Do it by editing ZAPPY ARTIST # 1 or ZAPPY 
ARTIST # 3. The changes are minor. 


FANTASV ROL€ PlflVING GAM€S 

Millions of people are playing fantasy role playing games. A role playing game is a 
game in which one or more players create and control characters (adventurers) 
who live their imaginary lives in a specially made game world. The game world is 
created, managed, and operated by a GameMaster (GM), also called a referee, 
adventure master, or Dungeon Master (DM). 

Most people who play role playing games use a formal rule system. Some of the 
best known are listed below: 

Dungeons & Dragons (D&DJ. From TSR, P.O. Box 756, Lake Geneva, WI 

53147. 

RuneQuest (RQ). From Chaosium, P.O. Box 6302, Albany, CA 94706. 

Tunnels & Trolls (T&T). From Blade, Box 1467, Scottsdale, AZ 85252. 

Beware! The rule books are difficult to read and understand. For beginners, we 
suggest two books written specifically for beginners: 

Adventurer's Handbook: A Guide to Role Playing Games by Bob Albrecht and 

Greg Stafford. 

Through Dungeons Deep by Robert Plamondon. 
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Both are available from Reston Publishing Company, 11480 Sunset Hills Road, 
Reston, VA 22090. 

To play a role playing game, you create one or more characters, then guide them 
through adventures in a universe created by a GameMaster. To create a character, 
you roll three six-sided dice several times. Each roll assigns a value to one of the 
basic characteristics of your character. 

For starters, you will learn to use your computer to roll a beginning character as 
described in Adventurer's Handbook or RuneQuest. Your character will have seven 
basic characteristics: strength (STR), constitution (CON), size (SIZ), intelligence 
(INT), power (POW), dexterity (DEX), and charisma (CHA). These characteristics 
determine a character's ability to use weapons, fight, learn, use magic, sustain 
damage, lead others, survive and thrive in the GM's world. 

A six-sided die has six sides numbered 1 to 6. To determine a characteristic, you 
roll three dice and add the numbers. For example: 


= 13 



The smallest possible roll is 3 (1 +1 +1). The largest is 18 (6 + 6 + 6). An "average " 
roll is 10 or 11. You will get 10 or 11 about 25% of the time. A roll of 9 to 12 occurs 
about 48% of the time. Expect to get 9,10,11 or 12 about half of the time. 

Instead of rolling dice, use your ATARI computer to roll a character. 

110 REM**CREATE A CHARACTER 
110 GR. 0 


200 

REM** 

ROLL 

CHARACTER I ST 

ICS 

210 

60SUB 

910 

PR. 

"STR", 

DICE 

220 

G0SUB 

910 

PR. 

"CON", 

DICE 

230 

G0SUB 

910 

PR. 

"SIZ", 

DICE 

240 

G0SUB 

910 

PR. 

"INT", 

DICE 

250 

G0SUB 

910 

PR. 

"POW", 

DICE 

260 

G0SUB 

910 

PR. 

"DEX", 

DICE 

270 

G0SUB 

910 

PR. 

"CHA", 

DICE 

280 

STOP 





900 

REM** 

DICE 

SUBROUTINE 


910 

D1 = 

I NT(6*RND(0)) + l 


920 

D 2 = 

INT(6*RND(0) ) + l 


930 

D3 - 

I NT(6*RND(0) ) + l 


940 

DICE 

= D 1 

+ D2 

+ D 3 


950 

RETUR 

N 
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We hope you use screen editing when you enter this program. Note how similar 
to each other are lines 210 through 270. After typing line 210, and pressing 
RETURN, edit line 210 to get line 220, then press RETURN. Edit line 220 to get line 
230. And so on—edit line 910 to get line 920, then edit line 920 to get line 930. 

Use the program to roll a character. Your character might look like this (but 
probably won't). 



Here is your first adventurer. He is big (SIZ = 13), strong (STR = 15), above 
average in ability to soak up damage (CON = 12), has good dexterity (D = 14), has 
average intelligence (INT = 10). He will not be a magic user (POW = 9) or a leader 
(CHA = 7). 

Roll another character. 



This is indeed a strange character! Big (SIZ = 14), strong (STR = 14), able to take 
damage (CON = 13). But clumsy (DEX = 7) and not very bright (INT = 8). Look at 
power (POW = 15). Very high. If our character had high intelligence, he could be a 
magic-user. However, he probably can't remember a spell and, even if he did, 
might use it on himself by accident. His power will show up as luck. Our character 
is very lucky. 
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Watch out! This character has high charisma (CHA = 15). He will convince 
others to follow him into...what? A quandry...do we follow Clutz and trust to 
luck? Perhaps we follow a league behind. 

Help! Roll another adventurer. 



Saved! Our group is saved! Windstar the Wise wandered by, saw our forlorn 
little group of adventurers, and decided to take charge. She is a magic-user and 
leader — someone to trust, learn from, and follow. 

The group of characters now numbers three: Fibak, Clutz, and Windstar. Too 
small a group. They need at least four more characters to survive and thrive in the 
GameMaster's world. So, you roll four more characters. More are OK. Tell who 
each character is and how he or she relates to and works with the other adven¬ 
turers. 

Questions_ 

1. In Tunnels & Trolls (T&T), a character has six basic characteristics: strength 
(STR), constitution (CON), intelligence (IQ), luck (LK), dexterity (DEX), and 
charisma (CHR). Modify our CREATE A CHARACTER program to roll and 
print a T&T character, using the above abbreviations. 

2. In Dungeons & Dragons (D&D), a character has six basic characteristics: 
strength (STR), constitution (CON), intelligence (INT), wisdom (WIS), dex¬ 
terity (DEX), and charisma (CHA). Put the abbreviations in a DATA state¬ 
ment such as the one below. 

1000 REM**CHARACTERISTIC ABBREVIATIONS 
1010 DATA STR,CON,INT,WIS,DEX,CHA 

Write a program to roll a D&D character. Read an abbreviation, roll dice, and 
print the result for each characteristic. 
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Rnsuiers 


1. We did it the easy way, by screen editing the original program. Change only 
block 200 as follows. 


200 

REM** 

ROLL 

CHARACTERISTICS 


910 

G0SUB 

910 

PR. 

"STR", DICE 


220 

G0SUB 

910 

PR. 

"CON", DICE 


230 

G0SUB 

910 

PR. 

"IQ", DICE 

Here is a change. 

240 

G0SUB 

910 

PR. 

"LK", DICE 


250 

G0SUB 

910 

PR. 

"DEX", DICE 

Here is a change. 

260 

G0SUB 

910 

PR. 

"CHR", DICE 

Here is a change. 

270 

STOP 






2. Here are two ways. First way: 

100 
1 10 
1 20 

200 
210 
220 
230 

900 
910 
920 
930 
940 
950 

1000 REM**CHARACTERISTIC ABBREVIATIONS 
1010 DATA STR,CON, INT,WIS,DEX,CHA 


REM**CREATE A CHARACTER 
DIM ABBR$(3) 

GR. 0 

REM**R0LL CHARACTERISTICS 
READ ABBR$ 

G0SUB 910: PR. ABBR$, DICE 
GOTO 210 


REM**DICE SUBROUTINE 
D1 = I NT(6*RN D(0))+l 
D2 = I NT(6*RN D(0 ))+l 
D3 = I NT(6*RN D(0) ) + l 
DICE - D1 + D2 + D3 
RETURN 


When you run this program, 
it stops with an ERROR 6 
message. That’s OK, since all 
the information is on the 


screen. 


Another way. Change only block 200. 


200 ROLL CHARACTERISTICS 
210 FOR K = 1 TO 6 
220 READ ABBR$ 

230 G0SUB 910: PR. ABBR$, DICE 
240 NEXT K 
250 STOP 
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S€LF-T€ST 


Well, it looks like you have meandered into another Self-Test. 


1. For each of the following, what are the possible values of X? 


(a) X = INT(3*RND(0)) 

(b) X = INT(3*RND(0)) + 1 

(c) X = INT(3*RND(0))- 1 

(d) X = 2*INT(3*RND(0)) 

(e) X = 2*(INT(3*RND(0))+ 1 


2. Complete the following. 

(a) If N= 100, then INT(N*RND(0)) will be a random integer in the range 

_to_, inclusive. 

(b) If N =20, then INT(N*RND(0)) + 11 will be a random integer in the range 

_to_, inclusive. 

3. Complete the following so X will be a random number in the range shown. 

(a) X = 10,11,12, or 13. X=_ 

(b) X = 2,5, or 8. X=_ 


4. Where will the wandering question mark wander if you run the following 
program?__ 


100 REM**WANDERING CHARACTER 
110 DIM CH$ ( 1 ) 

120 CH$ = "?" 

130 GR. 0 

200 REM ,v *RAND0M SCREE N POSITION 
210 COL - I NT(20*RND(0)) 

220 ROW = I NT(12*RND(0)) 

300 REM**PRINT CH$ IN RANDOM PLACE 
310 PR. CHR$(125) 

320 P0S. COL,ROW: PR. CH$ 


(continued) 
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400 REM**DELAY & GO AGAIN 
410 TD = 200 

420 FOR Z=1 TO TD: NEXT Z 
430 GOTO 210 


5. Write a program to make a "ball" roll left or right randomly in row 11. Start 
the ball in column 19. Then, each time through a loop, roll it one place left or 
one place right or leave it where it is. You can do this by adding - 1,0, or 1 to 
the present column position. Use RND to get - 1,0, or 1 randomly. 

6. Write a program to make random sounds with random voice (V = 0,1,2, or 
3), random tone number (N = 0 to 255), random distortion (D = 0 to 15), and 
random loudness (L = 0 to 15). Also try only even numbers, 0 to 14, for 
distortion. Include a time delay. Make the time delay easy to adjust. 

7. Write a GRAPHICS 3,5 or 7 program to plot random blips of light in a 
rectangular block of the screen. You enter the location (COL,ROW) of the 
upper left corner of the block, the width (W) of the block, the height (H) of the 
block, and the number of blips to plot. For example, the text window might 
look like this. 

CORNER (COL,ROW)?5,6 
WIDTH, HEIGHT?10,3 
NUMBER OF BLIPS? 20 ■ 

If you now press RETURN, the computer will put 20 random color blips in 
the rectangular area of the screen from column 5 to column 15, row 6 to 
row 9. 



W=10 


After plotting the required number of blips, the computer asks (in the text 
window) for more information. 
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8. Write a GRAPHICS 3,5 or 7 program to put random "starbursts" on the 
screen. A starburst looks like this: 




You enter the location (COL,ROW) of the center of starburst and the number 
of rays emanating from the center. The computer computes random end 
points for the rays. For example: 

CENTER (COL,ROW)?10,10 
NUMBER OF RAYS78B 


Now press RETURN and the computer will put a starburst with eight rays 
centered at column 10, row 10. 

9. In the CREATE A CHARACTER program, we used a DICE SUBROUTINE to 
simulate (imitate) rolling three six-sided dice. Rewrite this dice rolling sub¬ 
routine. Use a FOR-NEXT loop to roll three dice and compute their sum. 

10. Write a DICE SUBROUTINE to roll ND dice, each with NS sides. For 
example, suppose you want to roll four dice, each with eight sides. Then ND 
is 4 and NS is 8. The possible rolls range from 4 to 32. 


1. (a) 0,1, or 2 

(b) 1,2, or 3 

(c) - 1,0, or 1 

(d) 0,2, or4 

(e) 2,4, or 6 

2. (a) 0 to 99 
(b) 11 to 30 


Rnsuiers to Self-Test 
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3. (a) X = INT(4*RND(0)) + 10 

(b) X = 3*(INT(3*RND(0)) + 1)- 1 

Did this one boggle you? Here is a blow by blow description. 

INT(3*RND(0)) is 0,1, or 2. 
INT(3*RND(0)) +1 is 1,2, or 3. 
3*(INT(3*RND(0)) +1) is 3,6, or 9. 
3*INT(3*RND(0)) + 1)~ 1 is2,5, or8. 


4. The question mark will wander in the upper left quarter of the screen. The 
value of COL is a random integer from 0 to 19 and the value of ROW is a 
random integer from 0 to 11. 

5- 100 REM**R0LL A BALL RANDOMLY 

110 6R. 0 
120 POKE 752,1 

200 REM**START THING AT 19,11 
210 COL - 19: ROW = 11 
220 P0S. COL,ROW: PR. 

300 REM**M0VE THING 
310 D = I NT(3*RN D(0 ) )-l 
320 P0S. COL,ROW: PR. " " 

330 COL = COL + D 
340 P0S. COL,ROW: PR. 

400 REM**DELAY, THEN GO AROUND 
410 TD = 20 

420 FOR Z=1 TO TD: NEXT Z 
430 GOTO 310 

Run this program and watch the ball roll indecisively right or left. If it tries to 
roll off the screen (COL less than zero or more than 39), the computer will 
stop with an ERROR 3 or ERROR 141 message. 
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6. 100 REM**VERY RANDOM SOUND 

110 GR. 0 

200 REM**MAKE EVERYTHING RANDOM 
210 V = INT(4*RN D(0)) 

220 N = INT( 256*RND(0 ) ) 

230 D - I NT(16*RND(0) ) 

240 L = INT(16*RND(0)) 

300 REM**N0W MAKE A SOUND 
310 SO. V , N , D , L 

400 REM**DELAY & GO AGAIN 
410 TD = 1 

420 FOR Z=1 TO TD; NEXT Z 
430 GOTO 210 


Also try: 230 D = 2*INT(8*RND(0)) 

7. We arbitrarily picked GRAPHICS 5. The program will also work in GRAPH¬ 
ICS 3 or 7. Simply change line 110. 


100 REM**RAND0M BLIPS 
110 GR. 5 

200 REM**GET INFORMATION 
210 PR. CHR$(125) 

220 PR. "CORNER (COL,ROW)";:IN.COL,ROW 
230 PR. "WIDTH,HEIGHT"IN.W,H 
240 PR. "NUMBER OF BLIPS";:IN.NB 

300 REM**PUT NB BLIPS ON SCREEN 

310 FOR BLIP = 1 TO NB 

320 COLB = I NT((W + l)*RND(0))+C0L 

330 ROWB = I NT((H + l)*RN D(0 ))+R0W 

340 COLOR INT(3*RND(0))+l 

350 PLOT COLB,ROWB 

360 NEXT BLIP 

400 REM**G0 FOR MORE 
410 GOTO 210 
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8,9,10. We leave these without answers for you to solve. Question 10 may make 
you wonder. Eight-sided dice? Yes, in Fantasy Role Playing games there are 4- 
sided, 6-sided, 8-sided, 10-sided, 12-sided and 20-sided dice. For information about 
dice, write to: 


Zocchi Distributors 
Middle Earth Hobbies 
01956 Pass Road 
Gulfport, MS 39501 




Chapter 

Nine 



Welcome, wayfarer, to Worlds of IF. In this chapter, you will learn how to teach 
your ATARI computer to make decisions and play games. When you finish this 
chapter, you will be able to: 

• Use the IF-THEN statement to tell the computer to make a decision 

• Create simple games using color, sound, shapes, letters, words and num¬ 
bers 

• Make Zappy Artist meander about the screen 

• Race colors across the screen 

• Use ON...GOTO and ON...GOSUB to select one of several paths through 
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The IF-TH€N Statement 

The IF-THEN statement tells the computer to make a very simple decision. It tells 
the computer to do a certain operation if a given condition is true. However, if the 
condition is false (not true), the operation will not be done. Here is an IF-THEN 
statement: 

410 IFX>0THEN PR. "POSITIVE" 

This IF-THEN statement tells the computer: 

• If the value of X is greater than zero (IF X>0), then print the word 
POSITIVE. 

• If the value of X is not greater than zero, don't print the word. 

Here is another way to think about it: 

• If the value of X is greater than zero, execute the statement following the 
word THEN. 

• If the value of X is not greater than zero, don't execute the statement 
following THEN. 

Hmmm...one more time. 



410 IF X > 0 TH€N PR. "POSITIV€ " 


L Do this if the condition 
is true. 

_ Don’t do this if the 
condition is false. 


In the above IF-THEN statement, the condition is X > 0 or X is greater than zero. 

• Suppose the value of X is 3. Then the condition is true and the computer 
prints POSITIVE. 

• Suppose the value of X is - 7. Now the condition is false. The computer 
does not print POSITIVE. 
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• Suppose the value of X is 0. In this case, the condition is false. The word 
POSITIVE is not printed. 

The following program has three IF-THEN statements to tell the computer "to 
do or not to do." 


100 REM**NEGATIVE, ZERO, OR POSITIVE 
110 GR. 0 

200 REM**TELL WHAT TO DO 
210 PR. "ENTER A NUMBER AND I'LL TELL" 
220 PR. "YOU WHETHER YOUR NUMBER IS" 
230 PR. "NEGATIVE, ZERO, OR POSITIVE." 

300 REM**ASK FOR A NUMBER 
310 PR. 

320 PR. "YOUR NUMBER" ; : IN. X 

400 REM**TELL ABOUT THE NUMBER 
410 IF X<0 THEN PR. "NEGATIVE" 

420 IF X=0 THEN PR. "ZERO" 

430 IF X>0 THEN PR. "POSITIVE" 

500 REM**G0 BACK FOR ANOTHER NUMBER 
510 GOTO 310 
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A run might go this way: 

/enter A NUMBER AND I’LL TELL 
YOU WHETHER YOUR NUMBER IS 
NEGATIVE, ZERO, OR POSITIVE. 

YOUR NUMBER73 
POSITIVE 

YOUR NUMBER?-7 
NEGATIVE 

YOUR NUMBER70 
ZERO 

YOUR NUMBER?* Your turn. Carry on! 


If you enter a negative number (such as -7), the condition in line 410 is true and 
the conditions in lines 420 and 430 are false. So the computer prints NEGATIVE. 

If you enter zero (0), the condition in line 420 is true and the conditions in lines 
410 and 430 are false. The computer prints ZERO. 

If you enter a positive number (such as 3), the condition in line 430 is true and 
the conditions in lines 410 and 420 are false. The computer prints POSITIVE. 

In general, the IF-THEN statement has the following form: 

IF condition THEN statement 

The statement can be almost any ATARI BASIC statement. The condition is 
usually a comparison between a variable and a value, between two variables, or 
between two more complicated expressions. Here is a handy table showing 
ATARI BASIC symbols and math symbols: 


Math Symbol 

Comparison 

ATARI BASIC Symbol 

— 

is equal to 

— 

< 

is less than 

< 

> 

is greater than 

> 

< 

is less than or equal to 

< = 

> 

is greater than or equal to 

> = 

* 

is not equal to 

< > 
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Questions 


1. In each IF-THEN statement, underline the condition. 


(a) IF ROW <0THEN ROW = 0 

(b) IF COL = 39 THEN GOTO 610 

(c) IFX> =0THEN PR. "NON-NEGATIVE" 

(d) IF G < >X THEN PR. "HA! THAT’S NOTIT." 


2. Write a program to ask for a value of COL. If the value is less than 0 or greater 
than 39, print OUT OF BOUNDS!, then go back for another value. 


Answers 


1. (a) IF ROlVcO THEN ROW = Q 

(b) IF COL^39 THEN GOTO 610 

(c) IF X> -0 THEN PR. "NON-NEGATIVE" 

(d) IF G < >X THEN PR "HA! THAT’S NOT IT. * 

2. 100 REM**0UT OF BOUNDS 
110 GR. 0 

200 REM**ASK FOR VALUE OF COL 
210 PR. "WHAT IS COL" ; : IN. COL 

300 REM**TELL ABOUT VALUE 

310 IF C0L<0 THEN PR. "OUT OF BOUNDS!" 

320 IF C0L>39 THEN PR. "OUT OF BOUNDS!" 

400 REM**G0 FOR ANOTHER VALUE 
410 PR. 

420 GOTO 210 


Lines 310 and 320 can be combined as follows: 

310 IF C0L<0 OR C0L>39 THEN PR. "OUT OF BOUNDS!' 

- 1 - 

The condition 
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The two simple conditions have been combined into a compound condition. If 
you try this variation, remember to delete line 320. 


GRM€ TIM€! 


Here is our first computer game, a simple number-guessing game: 


100 REM**FIRST NUMBER GUESSING GAME 
110 GR. 0 

200 REM**TELL HOW TO PLAY 

210 PR. "I WILL THINK OF A NUMBER." 

220 PR. "MY NUMBER IS 1 OR 2." 

300 REM**X IS SECRET NUMBER 
310 X = I NT(2*RND(0)) + l 

400 REM**G IS PLAYER'S GUESS 
410 PR. 

420 PR. "OK, I HAVE A NEW NUMBER." 

430 PR. "WHAT IS YOUR GUESS (1 OR 2)";: IN. G 

500 REM**TELL IF RIGHT OR WRONG 

510 IF G = X THEN PR."THAT'S IT. YOU MUST HAVE ESP!" 
520 IF G<>X THEN PR. "HA! THAT'S NOT IT." 

600 REM**G0 PLAY AGAIN 
610 PR. "LET'S PLAY AGAIN." 

620 GOTO 310 


Enter the game and play for a short time. Well, it's not the world's most exciting 
computer game, but it's a beginning. Better things are coming! 

A condition can also be a relationship between two strings or two string vari¬ 
ables, as shown in lines 510 and 520 of the following program. In this game, the 
computer "flips" a coin. You guess H for heads or T for tails. 


100 REM**C0IN FLIP GAME 
110 GR. 0 

120 DIM X$(1),G$(1) 


(continued) 
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200 REM**TELL HOW TO PLAY 

210 PR. "I WILL FLIP A COIN. GUESS" 

220 PR. "H FOR HEADS OR T FOR TAILS." 

300 REM**COMPUTER "FLIPS" COIN, X$ 

310 X = I NT(2*RND(0)) 

320 IF X = 0 THEN X $ = " H " 

330 IF X = 1 THEN X$="T" 

400 REM**G$ IS PLAYER'S GUESS 
410 PR. 

420 PR. "OK, I FLIPPED IT." 

430 PR.. "WHAT IS YOUR GUESS (H OR T)";: IN. G$ 

500 REM**TELL IF RIGHT OR WRONG 

510 IF G$ = X$ THEN PR."THAT'S IT.YOU MUST HAVE ESP!" 
520 IF G$<>X$ THEN PR. "HA! THAT'S NOT IT." 

600 REM**GO PLAY AGAIN 
610 PR. "LET'S PLAY AGAIN." 

620 GOTO 310 


Enter the program and play the game. The computer simulates flipping a fair 
coin. It will give heads (H) or tails (T) with about equal probability, just as in 
flipping a real coin. 
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Questions_ 

1. Answer these questions about the FIRST NUMBER GUESSING GAME: 

(a) In line 310, what are the possible values of X?_ 

(b) What variable holds the player's guess?_ 

(c) Which lines compare the guess with the computer's secret number? 

(d) What is the condition in line 510?_ 

(e) Suppose this condition is true. What happens? 

(f) Suppose the condition is false ? What happens? 

(g) What is the condition in line 520?_ 

(h) Suppose this condition is true. What happens? 

(i) Suppose the condition is false. What happens? 

2. Answer these questions about the COIN FLIP GAME. 

(a) In line 310, what are the possible values of X? 

(b) Suppose X is 0. What will be the value of X$? 

(c) Suppose X is 1. What will be the value of X$? 

(d) What variable holds the player's guess?_ 

(e) What is the condition in line 510?_ 

(f) What is the condition in line 520?_ 

(g) Got it?_ 
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Answers_ 

1. (a) 1 or 2. 

(b) G (used in lines 430, 510, and 520). 

(c) Lines 510 and 520. 

(d) G = X (G is equal to X). 

(e) The computer prints THAT'S IT. YOU MUST HAVE ESP! 

(f) Nothing. The computer moves on to line 520. 

(g) G < >X (G is not equal to X). 

(h) The computer prints HA! THAT’S NOT IT. 

(i) Nothing. The computer moves on to line 610. 

2. (a) 0 or 1. 

(b) "H" This happens in line 320 whenever X = 0 is true. 

(c) "T" This happens in line 330 whenever X= 1 is true. 

(d) G$ You see it in lines 120, 430, 510, and 520. 

(e) G$ = X$ or G$ is equal to X$. 

(f) G$ < > X$ or G$ is not equal to X$. 

(g) We hope you said yes. If not, compare this program with the FIRST 
NUMBER GUESSING GAME program. They are quite similar. Dif¬ 
ferences include the use of (in the COIN FLIP GAME) string variables to 
hold the computer's coin flip and the player's guess. The conditions in 
lines 510 and 520 compare the string values of variables G$ and X$. 

When you play the COIN FLIP GAME, you will win about half the time and lose 
about half the time. Play it a bunch of times and keep track. What? You played it 
100 times and won 73 times? Well, maybe you do have ESP! 

Have some fun with a friend. Make these changes to the COIN FLIP GAME: 

100 REM**UNFAIR COIN FLIP GAME 

300 REM**FLIP AN UNFAIR COIN 
310 X = I NT(3*RND(0)) 

320 IF X<=1 THEN X$= n H n 
330 IF X = 2 THEN X$ = ,, T H 
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Now the computer will "flip" heads (H) about twice as often as tails (T). Have 
your friend keep track of wins and losses. Perhaps she or he will discover that the 
computer is flipping an unfair coin. Here is another unfair variation. 

300 REM**C0MPUTER "FLIPS" A COIN, X$ 

310 PH = 60 

320 X = I NT(100*RND(0)) + l 
330 IF X<=PH THEN X$="H" 

340 IF X>PH THEN X$ = "T" 

Think of PH as the probability of getting heads. We have set it to 60 to mean a 
60% chance of getting heads. In line 320, the possible values of x are 1 to 100, 
inclusive. So, in line 330, the condition will be true about 60% of the time. If you 
want heads to appear 30% of the time, change line 310 to: 310 PH = 30. Or select 
your own value of PH. 

GU€SSING WITH SOUND 


Next, a game of GUESS MY TONE. The computer computes a random tone 
number, 1 to 255, then plays the tone. You guess the tone number. A run might go 
like this. 

^TLL PLAY A TONE. GUESS MY TONE NUMBER. 

MY LOWEST TONE HAS TONE NUMBER 

MY HIGHEST TONE HAS TONE NUMBER l.-^V these tones, i 


GUESS THIS TONE 
WHAT IS YOUR GUESS7100 
HERE IS YOUR TONE 


Computer sounds mystery 
tone before each guess and 
player’s tone after each guess. 


GUESS THIS TONE 
WHAT IS YOUR GUESS750 
HERE IS YOUR TONE 


Only three guesses? 
how unlikely! 


GUESS THIS TONE 

WHAT IS YOUR GUESS773 

THAT’S IT. YOU GUESSED MY TONE! 


-WfjW- 
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After a short time delay, the game begins again with a new tone. Now we will 


show you the 

progr< 

am in a few easy pieces. The first piece 

is especially easy. 

Nothing new here. 




100 

REM* 

*GUESS MY 

TONE 


110 

GR. 

0 



200 

REM* 

*TELL HOW 

TO PLAY 


210 

PR. 

CHR$(125) 



220 

PR. 

"GUESS MY 

TONE NUMBER." 


230 

PR. 




240 

PR. 

"MY LOWEST 

TONE HAS TONE 

NUMBER 255." 

250 

PR. 

"MY HIGHES 

T TONE HAS TONE 

NUMBER 1." 

300 

REM* 

*C0MPUTE S 

ECRET TONE NUMB 

ER 

310 

N = 

INT( 2 5 5*R N 

D ( 0 ) ) + 1 


Next, we want the 

computer to play the secret tone. 


400 

REM* 

*PLAY SECR 

ET TONE 


410 

PR. : 

PR. "GUES 

S THIS TONE" 


420 

SO. 

0,N,10,10 



430 

TD = 

500: G0SU 

B 910 



As you will soon see, block 900 is a time delay subroutine which also shuts off 
the sound. Having heard the secret sound, the player is asked to enter a guess. 


500 REM**GET GUESS & COMPARE 
510 PR. "YOUR GUESS" ; : IN. G 
520 IF G=N THEN GOTO 710 

Line 520 compares the guess (G) with the secret tone number (N). If they are 
equal, the computer goes to line 710. 

Insteadof: 520 IF G = N THEN GOTO 710 
You can write: 520 IF G = N THEN 710 
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If the guess is not correct, on to block 600. It plays the tone corresponding to the 
player's guess, then goes back for a new guess. 

600 REM**GUESS NOT CORRECT 

610 PR. "HERE IS YOUR TONE" 

620 SO. 0,G,10,10 
630 TD = 500: GOSUB 910 
640 GOTO 410 

Suppose, back in line 520, the computer discovered that the guess was correct 
(G = N was true). In that case, here we are at block 700. 

700 REM**WINNER! 

710 PR. "THAT'S IT! YOU GUESSED MY TONE." 

720 SO. 0,N,10,10 

730 TD = 2000: GOSUB 910 

740 GOTO 210 

You hear the secret tone for a few seconds, then the game starts anew. 

One more block, the time delay subroutine. Please note that it also shuts off the 
sound for voice zero. 


900 

REM 

**T I 

ME DELAY 

SUBROUTINE 

910 

FOR 

Z = 1 

TO TD: 

NEXT Z 

920 

SO. 

0,0 

,0,0 


930 

RETURN 




Here is a variation to try. Make these changes and additions: 


Add: 

Change: 


120 HT = 100 
130 LT = 200 

240 PR. "MY LOWEST TONE HAS TONE NUMBER ";LT 
250 PR. "MY HIGHEST TONE HAS TONE NUMBER "; HT 
310 N - INT((LT-HT + 1)*RND(0)) + HT 
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Now the tone number (N) will be in the range, 100 to 200, inclusive. If you want 
another range, choose your own values of High Tone (HT) and Low Tone (LT). 
Remember: low tones have high numbers and high tones have low numbers. Tone 
numbers will be in the range HT or LT, inclusive. For our numbers above: 


(1) HT = 100 and LT = 200 

(2) LT-HT + 1 = 101 

(3) INT((LT - HT +1 )* RND(0)) is 0 to 100. 

(4) INT((LT-HT + 1)*RND(0)) + HT is 100 to 200. 


If you choose values of HT and LT, remember to make HT smaller then LT. Yes, 
we too wonder why ATARI made tone numbers backwards! 

In our next game, we use sound as a clue to help you guess a number. The 
computer "thinks" of a number. You guess, then listen. The computer plays a 
tone. A high tone means you are close; the closer you are, the higher the tone. A 
low tone means you are far away. 


100 REM**LISTEN, AND GUESS MY NUMBER 
110 GR. 0 
120 L0 = 1 
130 HI = 255 

200 REM**TELL HOW TO PLAY 
210 PR. CHR$(125) 

220 PR. "I'LL THINK OF A NUMBER" 

230 PR. "FROM "; L0; " TO HI 
240 PR. 

250 PR. "GUESS MY NUMBER, THEN LISTEN." 

260 PR. "HIGH TONE MEANS YOU ARE CLOSE." 
270 PR. "LOW TONE MEANS YOU ARE FAR AWAY." 

300 REM**C0MPUTER "THINKS" OF A NUMBER 
310 X = INT(HI-L0+1)*RND(0)) + L0 

400 REM**GET A GUESS 
410 PR. 

420 PR. "YOUR GUESS";: IN. G 


(continued) 
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500 REM**D IS DISTANCE FROM X 
510 D = ABS(X-G) 

600 REM**CHECK FOR A WIN 
610 IF D = 0 THEN 810 

700 REM**N0 WIN. SOUND HINT & GO AROUND 
710 IF D>255 THEN D = 255 
720 SO. 0,D,10,10 
730 TD = 500 

740 FOR Z=1 TO TD: NEXT Z 
750 GOTO 410 



800 REM**WINNER! 

810 PR. "CONGRATULATIONS! YOU GOT IT.' 


900 REM**TI ME DELAY, THEN PLAY AGAIN 

910 TD = 2000 

920 FOR Z=1 TO TD: NEXT Z 

930 GOTO 210 


In line 510, we use the ABS function. ABS means "ABSolute value." In this 
program, we use ABS to compute the distance from the guess (G) to the computer's 
secret number (X). Here are some examples: 


X 

G 

X-G 

ABS(X-G) 

73 

30 

43 

43 

73 

100 

-27 

27 

73 

73 

0 

0 Winner! 
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Questions_ 

1. In the variation to GUESS MY TONE, suppose we set the high tone and low 
tone numbers as follows: 

120 HT = 60 (One octave above Middle C) 

130 LT = 121 (Middle C) 


Complete the following. 

(a) LT-HT+1 =_. 

(b) INT((LT — HT + 1)*RND(0)) is_to_ 

(c) INT((LT - HT +1 )* RND(O)) + HT is to 


2. Answer these questions about LISTEN, AND GUESS MY NUMBER. 

(a) As the game is written, the computer's secret number (X) is in the 

range_to_. 

(b) Suppose X is 120 and G is 100. What is D?_ 

(c) Suppose X is 97 and G is 150. What is D?_ 

(d) What is the purpose of line 710? 

Answers_ 

1. (a) LT-HT + 1 = 121 -60 + 1 = 62 

(b) INT((LT - HT +1 )* RND(0)) is 0 to 61. 

(c) INT((LT — HT + 1)*RND(0)) + HT is 60 to 121. 
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2. (a) 1 to 255. These are the values of LO and HI which are assigned in lines 

120 and 130. 

(b) D = ABS(X-G) = ABS(120 —100) = ABS(20) = 20. 

(c) D = ABS(X-G) = ABS(97 —150) = ABS(-53) = 53. 

(d) Suppose X is 100 and someone guesses 357. Then D is 257, larger than 
255. This guess is far away and someone should hear a low tone. If we used 
257 as the tone number in line 720, you would hear a very high note — 257 
produces the same tone as 1. So line 710 checks for this and sets the tone to 
the lowest possible tone with tone number 255. 

Oops! Some people might not be able to hear the tones for tone number 1, 2 or 
even 3. You might want to add a line to set the smallest tone number used to 2 
or 3. 


ZAPPV ARTIST M€AND€RS 

Zappy Artist meanders right, left, up or down on the screen. 

100 REM**ZAPPY ARTIST MEANDERS 
110 GR. 19 

300 REM**ZAPPY ARTIST APPEARS 
310 COL = 20 
320 ROW = 12 

330 COLOR I NT(3*RND(0)) + l 
340 PLOT COL,ROW 

500 REM**WHICH WAY? CHOOSE 1 OF 4 
510 WAY = I NT(4*RND(0)) + l 
520 IF WAY=1 THEN COL = C0L+ 1 3 

530 IF WAY=2 THEN R0W=R0W+1 
540 IF WA Y = 3 THEN C0L=C0L-1 
550 IF WAY = 4 THEN R0W = R0W-1 

700 REM**ZAP P Y ARTIST GOES THAT WAY 
710 COLOR I NT(3*RND(0)) + 1 
720 PLOT COL,ROW 

(continued) 
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900 REM**DELAY, THEN MEANDER MORE 
910 TD = 100 

920 FOR Z=1 TO TD: NEXT TD 
930 GOTO 510 

Zappy Artist first appears (block 300) near the center of the GRAPHICS 19 screen 
at col 20, row 12. He or she then meanders right (WAY = 1) or down (WAY = 2) or 
left (WAY = 3) or up (WAY = 4). 

Eventually, Zappy Artist will wander off the screen and you will see: 
ERROR 3 AT LINE 720. This happens if the value of COL becomes less then 
zero or more than 39. It also happens if the value of ROW becomes less then zero or 
more than 23. Add block 600 to prevent this from happening. 


600 

REM 

**KE E P 

ZAPPY 

ON 

S 

610 

IF 

C0L>39 

THEN 

C0L : 

= 3 

620 

IF 

R0W>23 

THEN 

ROW- 

-2 

630 

IF 

C 0L<0 

THEN 

COL 1 

= 0 

640 

IF 

R OW<0 

THEN 

R0W : 

= 0 


Questions 


1. Change the ZAPPY ARTIST MEANDERS program so it runs in (a) GRAPH¬ 
ICS 21, (b) GRAPHICS 23. 

2. Add block 200 to set the background white and color registers 0, 1, and 2 to 
colors of your choice. 


Answers 


1. Remember, we want Zappy Artist to start near the center of the screen. Here 
are the changes for (a) GR. 21 and (b) GR. 23. 


(a) 110 GR. 21 
310 COL = 40 
320 ROW = 24 
610 IF C0L>79 
620 IF R0W>47 
910 TD = 1 


THEN 

THEN 


C0L-79 

ROW-47 


We also speeded up 
the action by changing 
line 910. 
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(b) 110 

GR. 23 


310 

COL = 80 


320 

ROW = 48 


610 

IF C0L>159 THEN 

C OL = 15 9 

620 

IF R0W>95 THEN 

ROW-95 

910 

TD = 1 


200 REM**CH00SE COLORS 



210 SE. 4,0,14 white background 

220 S E. 1,4,8 pink 

240 SE. 2,5,8 purple 


Now add some eerie sound to the GRAPHICS 23 program. 

800 REM**STRANGE SO 
810 SO. 0,COL,10,10 
820 SO,, 1 , ROW, 1 0, 1 0 



RACING COLORS 

In GRAPHICS 3,5 and 7, you can use three different colors at any one time. Let's 
pick two colors and race them across the screen. We will race orange and light 
green in GRAPHICS 3. 

First, start the two colors at the left edge of the screen in rows 5 and 10: 


100 REM**RACING COLORS 
110 GR. 3 

300 REM**RACERS TO STARTING POSITION 
310 COLOR 1 

320 COL 1 = 0: PLOT COL 1,5 
330 COLOR 2 

340 C0L2 = 0: PLOT C0L2,10 

The colors are on the screen. In the text window you see: 


400 

REM 

**READY 

, s 

ET, 

GO! 

410 

PR. 

C H R $ ( 1 

25) 



420 

PR. 

"GET R 

EAD 

Y" 


430 

TD 

= 500: 

GOS 

UB 

1010 

440 

PR. 

"GET S 

ET" 



450 

TD 

- 500: 

GOS 

UB 

1010 

460 

PR. 

"GO! " 
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They're off and racing. How will we do that? Well do it like this: Each time 
around, we will advance each color one or two spaces. The second space depends 
on a random number. For each color, we assign a probability from 0 to 100 of 
advancing the second space. 


500 REM**CHANCE OF 2ND SPACE 
510 PI = 60 
520 P2 - 40 


Color number one (orange) has a better chance (60%) of moving the second 
space. Color number two (light green) has only a 40% chance. You can think of 
color number one as being "faster" then color number two. Of course, you can 
change these numbers to suit yourself. 

Next we compute the actual number of spaces each color moves. 

600 REM**C0MPUTE HOW FAR TO MOVE 

610 COL 1 = COL 1 + 1 

620 X = I NT(100*RND(0)) + l 

630 IF X<=P1 THEN C0L1=C0L1+1 

640 C0L2 = C0L2 + 1 

650 X = I NT(100*RND(0) ) + l 

660 IF X< = P2 THEN C0L2-C0L2 + 1 


Lines 610 and 640 move each color one space. Lines 620 and 630 give a PI per 
cent chance of color one moving another space. Lines 650 and 660 give a P2 per 
cent chance of color two moving another space. Now paint the colors from column 
0 to their new positions. 

800 REM**PAINT COLOR TO NEW POSITIONS 
810 COLOR 1 

820 PLOT 0,5: DRAWTO COL 1,5 
830 COLOR 2 

840 PLOT 0,10: DRAWTO C0L2,10 


Keep em racing. After a short time delay, go back for another move: 


900 REM**DELAY, THEN GO AROUND 
910 TD = 100: G0SUB 1010 
920 GOTO 610 

1010 REM**TJ.ME DELAY SUBROUTINE 
1020 FOR Z=1 TO TD: NEXT Z 
1030 RETURN 
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OK, run the program and watch them race. Orange will usually win, unless you 
change the values of PI and P2 in lines 510 and 520. Every race will end with one of 
these messages in the text window: 

ERROR 141 AT LINE 820 
or ERROR 141 AT LINE 840 




Questions_ 

1. Add a third racing color, dark blue in row 15. 

2. A challenge: Add block 700 to prevent any color from trying to go off the 
screen. Then change block 900 so the computer announces the winner or, if 
there is a tie, says so. You might also want to add sound to the program. 
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Answers 


1. Add these lines. 

350 COLOR 3 

360 C0L3 = 0: PLOT C0L3, 15 

530 P3 = 50 

670 C0L3 = C0L3 + 1 
680 X = I NT(100*RND(0)) 

690 IF X<= P3 THEN C0L3 = C0L3+1 

850 COLOR 3 

860 PLOT 0,15: DRAWTO C0L3,15 


2. Well leave this one for you. We also suggest you modify the program for 
GRAPHICS 5 or 7. May the best color win! 


A TR€€ HAS MANV BRANCHES 

This chapter began with a program called NEGATIVE, ZERO, OR POSITIVE. 
Here it is again with some changes: 

100 REM**NEGATIVE, ZERO, OR POSITIVE 
110 GR. 0 

120 DIM N$(8) ,Z$(4) ,P$(80 
130 N$ - "NEGATIVE" 

140 Z$ = "ZERO" 

150 P$ = "POSITIVE" 

200 REM**TELL WHAT TO DO 

210 PR. "ENTER A NUMBER AND I'LL TELL" 

220 PR, "YOU WHETHER YOUR NUMBER IS" 

230 PR. "NEGATIVE, ZERO, OR POSITIVE." 

300 REM**ASK FOR A NUMBER 
310 PR. 

320 PR. "YOUR NUMBER";: IN. X 

(continued) 
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400 REM**TELL ABOUT THE NUMBER 
410 IF X<0 THEN PR. N$ 

420 IF X=0 THEN PR. Z$ 

430 IF X>0 THEN PR. P$ 

500 REM**G0 BACK FOR ANOTHER NUMBER 
510 GOTO 310 


One of the nicest things about computers: There is always another way to solve a 
problem, write a program. Here is another way to write the above program: 

100 REM**NEGATI VE , ZERO, OR POSITIVE 
110 GR. 0 

120 DIM N$(8),Z$(4),P$(8) 

130 N$ = "NEGATIVE" 

140 Z$ = "ZERO" 

150 P$ = "POSITIVE" 

200 REM**TELL WHAT TO DO 

210 PR. "ENTER A NUMBER AND I'LL TELL" 

220 PR. "YOU WHETHER YOUR NUMBER IS" 

230 PR. "NEGATIVE, ZERO, OR POSITIVE." 

300 REM**ASK FOR A NUMBER 
310 PR. 

320 PR. "YOUR NUMBER"; : IN. X 

400 REM**TELL ABOUT THE NUMBER 
410 W = SGN(X) + 2 
420 ON W GOTO 430,440,450 
430 PR. N$: GOTO 310 
440 PR. Z$: GOTO 310 
450 PR. P$: GOTO 310 

OK! OK! Well explain lines 410 and 420. In line 410, the SGN function has three 
possible values: - 1, 0, or 1. 

If X is negative, SGN(X) is - 1. 

If X is zero, SGN(X)isO. 

If X is positive, SGN(X)is1. 
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The value of W is SGN(X) 4- 2. 

If X is negative, W is 1. 

If X is zero, Wis2. 

If X is positive, Wis3. 

Line 420 sends the computer to line 430, line 440 or 450 depending on the value 
of W. 



If W is 1, the computer goes to line 430, prints the value of N$, then goes to line 
310. If W is 2, the computer goes to line 440, prints the value of Z$, then goes to line 
310. And so on. 

Lines 410 and 420 can be combined into a single line, as follows: 

410 ON SGN(X) + 2 GOTO 430,440,450 

\ ___ 

If you do this, remember to delete the old line 420. 


There is a cousin to ON...GO called ON...GOSUB. Rewrite block 400 this way: 


400 

REM 

**TE 

LL ABOUT THE NUMBER 

410 

ON 

S G N ( 

X)+2 GOSUB 430,440,450 

420 

GOTO 31 

0 

430 

PR. 

N$: 

RETURN 

440 

PR. 

Z$ : 

RETURN 

450 

PR. 

P$: 

RETURN 


It works this way: 


If X is negative, SGN(X) 4-2 is equal to 1. The computer GOSUBs to line 430, 
prints the value of N$, and RETURNS to line 420. 

If X is zero, SGN(X) 4-2 is equal to 2. The computer GOSUBs to line 440, prints 
the value of Z$, and RETURNS to line 420. 

If X is positive, SGN(X) 4-2 is equal to 3. The computer GOSUBs to line 450, 
prints the value of P$, and RETURNS to line 420. 





262 ATARI BASIC, XL Edition 


You will see even more ways to solve this problem in Chapters 10 and 11! In the 
meantime, here is another Zappy Artist escapade. Zappy draws horizontal and 
vertical stripes. 


100 REM**ZAPPY ARTIST DRAWS STRIPES 
1 10 GR. 19 

200 REM**RANDOM STRIPE LOOP 


210 

HV = 

I NT(2 * RN D 

i(0) )+l 


220 

ON HV 

G0SUB 31 

0,410 


230 

TD = 

1 00 



240 

FOR Z 

II 

—1 
O 

—1 

o 

• • 

NEXT Z 


250 

GOTO 

210 



300 

REM** 

HORIZONTAL STRIPE 


310 

ROW = 

I NT(24*R 

N D ( 0 ) ) 


320 

COL 1 

= I NT(40* 

RND(0) ) 


330 

C0L2 

= I NT(40* 

RND(0) ) 


340 

COLOR 

I NT(3*RN 

D ( 0 )) +1 


350 

PLOT 

C0L1,ROW: 

DRAWT0 

C0L2,ROW 

360 

RETURN 



400 

REM** 

VERTICAL 

STRIPE 


410 

COL - 

I NT ( 40 * R 

N D ( 0 ) ) 


420 

ROW 1 

- I NT ( 24* 

RND(0) ) 


430 

R0W2 

= I NT ( 24* 

RND(0) ) 


440 

COLOR 

I NT ( 3*RN 

D ( 0 ) )+l 


450 

PLOT 

COL,R0W1 : 

DRAWT0 

COL,R0W2 

460 

RETURN 




Zappy will draw about the same number of horizontal stripes as vertical stripes. 
To change the mix, change lines 210 and 220. 

• Twice as many horizontal as vertical stripes. 

210 HV = INT(3*RND(0)) + 1 
220 ON HVGOSUB 310,310,410 


Three times as many horizontal as vertical stripes. 

210 HV = INT(4*RND(0)) +1 

220 ON HVGOSUB 310,310,310,410 
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Questions_ 

1. Complete the following. 

(a) SGN(5) =_. 

(b) SGN( - 7) =_. 

(c) SGN(O) =_. 

(d) SGN(-7)+2 =_. 

(e) If X is 5, then SGN(X)+ 2 is 


2. Write lines 210 and 220 so Zappy Artist draws four times as many vertical 
stripes as horizontal stripes. 

210 _ 

220 _ 

Answers_ 


1. (a) 1 (b) -1 (c) 0 (d) 1 (e) 3 

2. 210 HV = INT(5*RND(0)) + 1 

220 ON HVGOSUB 310,410,410,410,410 

In line 210, the possible values of HV are 1, 2, 3, 4 and 5. If HV is 1, the 
computer GOSUBs to line 310. If HV is 2, 3, 4 or 5, the computer GOSUBs to 
line 410. 

EXPERIMENT! Use this program to find out more about ON...GOTO: 


100 

REM 

* * 0 N . . 

.GOTO 

EXPER I Ml 

:nt 

110 

GR . 

0 




200 

REM 

**ASK [ 

7 0R A 

NUMBER 


210 

PR. 





220 

PR. 

"NUMB! 

:r, pl 

EASE"; : 

IN. X 

300 

REM 

**0N. . 

.GO RE 

PLIES 


310 

ON 

X GOTO 

330,340,350 


320 

PR. 

"NOT : 

IN MY 

RANGE" : 

GOTO 210 

330 

PR. 

"ONE" 

: GOTO 

210 


340 

PR. 

"TWO" : 

: GOTO 

210 


350 

PR. 

"THREf 

I": GOTO 210 



Try these values of X: - 1, 0, .5, 1, 1.5, 2, 2.4, 3, 3.7, 4. Write a similar program to 
experiment with ON...GOSUB. 
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S€IF-T€ST 


IF your mind is fuzzy from cogitating on this chapter, THEN take a break — sing, 
dance, play conga drums, listen to music — then ON...GOTO this Self-Test: 


1. In each IF-THEN statement, underline the condition. 

(a) IF COL <39 THEN COL = COL + 1 

(b) IF N >255 THEN N = 255 

(c) IF X = 0 THEN PR. "ZERO" 

(d) IF G <X THEN PR. "TRY A BIGGER NUMBER": GOTO 210 

(e) IF G = X THEN 610 

2. Complete each sentence with true or false. 

(a) If X is 73 and G is 50, then G <X is_. 

(b) If X is 73 and G is 80, then G <X is_. 

(c) If X is 73 and G is 80, then G =X is_. 

(d) If X is 73 and G is 80, then G >X is_. 

(e) If X is 73 and G is 50, then G > X is_. 

3. For each verbal statement, write a corresponding BASIC IF-THEN state¬ 
ment: 

(a) If the value of COL is less then zero, print OUT OF BOUNDS and go to 

line 310._ 

(b) If D is equal to 1, print seven stars (*). _ 

(c) If K$ is not equal to "S", then go to line 420._ 

4. Here is a guessing game called STARS. The program is not complete — blocks 
200, 500, 600, 800 and 900 remain for you to write: 


1 00 

REM 

**STARS - A 

GUESSING GAME 

no 

GR. 

0 


120 

DIM 

AN $ (10) 


200 

REM 

**TELL HOW 

TO PLAY 


(continued) 
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300 

RE 

M**C0M 

PUT 

ER 

' TH 

INKS 

' OF NUMBE 

R 

310 

X 

= INT( 

1 00 

*RN D ( 0 

) ) + l 



400 

RE 

M**GET 

GU 

ES 

S 




410 

PR 

• 







420 

PR 

. "YOU 

R G 

UE 

SS" ; 

: IN 

. G 


500 

RE 

M**D I 

S D 

IN 

STAN 

CE F 

ROM X 


600 

RE 

M**CHE 

CK 

F0 

R A 

WIN 



700 

RE 

M**N 0 

WIN 

• 

PRIN 

T HI 

NT. 


710 

IF 

D>=64 

TH 

EN 

PR. 

ii * n . 

• 

GOTO 410 


720 

IF 

D>= 3 2 

TH 

EN 

PR. 

" k k " 

: GOTO 410 


730 

IF 

D>= 1 6 

TH 

EN 

PR. 

" k kk 

GOTO 41 

0 

740 

IF 

D>=8 

TH 

EN 

PR. 

" *** 

*": GOTO 4 

10 

750 

IF 

D>=4 

TH 

EN 

PR. 

" *** 

**": GOTO 

410 

760 

IF 

D>= 2 

TH 

EN 

PR. 

11 k k k 

***": GOTO 

410 

770 

PR 

" *** 

• 

k k k 

*" 

: GOTO 4 

10 



800 REM**WINNER ! 


900 REM**PLAY AGAIN? 

In block 900 the computer should ask PLAY AGAIN (Y OR N)? If someone 
types Y and presses RETURN, start the game again. If the answer is N, stop. 
If the answer is neither Y nor N, ask again. 


5. Write a program to play random music selected from the following tone 
numbers. These are the tone numbers for Middle C, D, E, F, G, A, B and C. 



1 

2 

3 

4 

5 

6 

7 

8 

Tone numbers 

c 

D 

E 

F 

G 

A 

B 

C 


121 

108 

96 

91 

81 

72 

64 

60 


6. Write a program to play random chords using tone numbers selected at 
random as in question 5. Each chord consists of three tones played simul¬ 
taneously by voices 0, 1 and 2. 
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7. Write a program to play random music. Use the eight tone numbers shown in 
question 5. Start at any of these and play it. For example, suppose you start at 
the 7th tone (64). Play it. Then add - 1, 0 or 1, at random. Suppose you add 
- 1 and get 6. Play tone number 72, the 6th tone. Add - 1, 0 or 1 and play the 
corresponding tone. And so on. However, the computer might compute 0 or 
9 as the next to play. Instead of 0, play the 8th tone (60). Instead of 9, play the 
1st tone (121). 

8. Rewrite the program ZAPPY ARTIST MEANDERS without using IF-THEN 
statements. Use ON...GOTO or ON...GOSUB instead. 


Rnsuuers to Self-Test 


l. 


2 . 


4. 


(a) IF COL <39 THEN COL = COL +1 

(b) IF N >255 THEN N = 255 


(c) IFX = 0THEN PR. "ZERO" 

(d) IF G<X THEN PR. "TRY A BIGGER NUMBER": GOTO210 

(e) IF G = X THEN 610 

(a) true (b) false (c) false (d) true (e) false 


(b) 

(c) 


IF D = 1 THEN PR. "*******" 
IF K$< >"S" THEN GOTO 420 
IF K$< > "S'THEN 420 


We did it this way: Have fun playing. 


200 RE 
210 PR 
220 PR 
230 PR 
240 PR 
250 PR 
260 PR 
270 PR 


**TELL H 
CHR$( 12 
"WELCOM 
"A NUMB 
"NUMBER 
"STARS. 
"STARS 
"STARS 


OW TO PLAY 
5) 

E TO MY GALAXY. I 1 LL 
ER, 1 to 100. YOU GU 
. IF YOU MISS, I'LL 
THE CLOSER YOU ARE, 
YOU WILL SEE. IF YOU 
(*******) you ARE V 


TH 

INK OF 

ESS 

MY" 

PRI 

NT SOM 

TH 

E MORE 

SE 

E SEVE 

ERY 

CLOSE 


II 


E 


II 


II 




II 


I " 


500 REM**D IS DISTANCE FROM X 
510 D = ABS(X-G) 


(continued) 
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600 REM**CHECK FOR A WIN 
610 IF D =0 THEN 810 

800 REM**WINNER ! 

810 FOR K=1 TO 100 
820 COL = I NT(40*RND(0)) 

830 ROW = I NT(22*RND(0)) 

840 POS. COL,ROW: PR. "*" 

850 NEXT K 

860 POS.0,22: PR."YOU GOT IT.MY NUMBER IS X 
900 REM**PLAY AGAIN? 

910 POS.0,23: PR."PLAY AGAIN (Y OR N)";:IN.AN$ 
920 IF A N $ = " Y " THEN 210 
930 IF AN$="N" THEN STOP 
940 GOTO 910 





5. You can use IF-THEN or ON...GOTO or ON...GOSUB. We used 
ON...GOSUB. 

100 REM**RANDOM MUSIC, KEY OF C 
110 GR. 0 

200 REM**SELECT ONE OF EIGHT NOTES 
210 N = I NT(8*RND(0)) + l 

220 ON N GOSUB 410,420,430,440,450,460,470,480 

300 REM**PLAY THE TONE & GO AROUND 
310 SO. 0,TN,10,10 
320 TD = 100 

330 FOR Z=1 TO TD; NEXT Z 
340 SO. 0,0,0,0 
350 GOTO 210 

400 REM**TONE NUMBER SUBROUTINE 

410 TN - 121: RETURN 

420 TN = 108: RETURN 

430 TN = 96 : RETURN 

440 TN - 91 : RETURN 

450 TN = 81 : RETURN 

460 TN = 72 : RETURN 

470 TN = 64 : RETURN 

480 TN = 60 : RETURN 


6,7,8. We leave these as challenges to you. 




Chapter 

Ten 



You have already used strings and string variables in simple ways. Now you will 
learn how to use several string functions to do interesting and fun things with 
strings. 

When you finish this chapter, you will be able to: 

• Compare two strings 

• Recognize and use ATASCII codes for characters 

• Join two strings 

• Convert strings to numbers 

• Convert numbers to strings 

• Find and use substrings (strings within strings) 

• Use the functions: ASC, CHR$, LEN and VAL 

• OPEN a channel to the keyboard and GET information from any key you 
press (you don't have to press RETURN) 


SOM€THING OLD, SOMETHING N€W 


Just to make things easy, we'll begin with a program that has many familiar 
features plus a couple of new ideas. This program rolls Tunnels and Trolls 
characters — as many as you want. 

100 REM**CREATE A CHARACTER 
110 GR. 0 

120 DIM GAME$(20), ABBR$(3),KY$(1) 

(continued) 
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200 REM**GAME AND ABBREVIATIONS 

210 DATA T&T,STR,C0N,IQ,LK,DEX,CHR,ZZZ 

300 REM**PRI NT NAME OF GAME 
310 PR. CHR$(125 ) 

320 RESTORE 

330 READ GAMES: PR. GAMES 

400 REM**ROLL & PRINT CHARACTERISTICS 
410 PR. 

420 READ ABBRS 
430 IF ABBR$="ZZZ" THEN 510 
440 GOSUB 910 
450 PR. ABBR$,DICE 
460 GOTO 420 


500 

REM**PRESS 'RETURN' TO 

DO AGAIN 

510 

PR. 



520 

PR. 

"TO GET ANOTHER CHARACTER," 

530 

PR. 

"PRESS THE 'RETURN' 

KEY . " ; 

540 

IN . 

KY$: GOTO 310 


900 

REM**DICE SUBROUTINE 


910 

D1 - 

INT(6*RND(0))+l 


920 

D2 = 

INT( 6*RND(0))+l 


930 

D3 - 

INT(6*RND(0))+l 


940 

DICE 

= D1 + D2 + D3 


950 

RETURN 




ZZZ is the 
“end of data” 
flag. See line 430. 


Enter and run the program. It might go this way: 
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Want another character? Press the RETURN key. 



STR 15 

CON 13 

IQ 9 

LK 11 

DEX 13 

CHR 7 


TO GET ANOTHER CHARACTER, 
PRESS THE ‘RETURN’ KEY.? ■ 


This character and the hobbit complement each other very well. Hmmm...they 
could be an incredible pair of thieves! 


For yet another character, 
press the RETURN Key. 



Now let's have a look at the program. Line 120 reserves space for three string 
variables: GAME$, ABBR$ and KY$. 

120 DIM GAME$(20),ABBR$(3),K$(1) 

/ / I 

Make room for 20 characters, 3 characters, 1 character. 


Look through the program. You will see GAMES use in line 330; ABBRS in lines 
420, 430 and 450; KY$ in line 540. Remember, before using a string variable, you 
must first DIMension it. 

Line 210 is a DATA statement containing the value of GAMES, six values of 
ABBRS, and an "end of data " flag called ZZZ. 

210 DATA T&T,STR,CON,IQ,LK,DEX,CHR,ZZZ 

/ 1 —i- '/ 

value of GAMES values of ABBRS end of data flag 
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We called the game T&T. However, line 120 reserves room for up to 20 charac¬ 
ters for the value of GAMES, so you can use the full name, TUNNELS & TROLLS, 
if you prefer. 

Line 310 clears the screen. You will learn more about the CHR$ function in this 
chapter. 

Next, something new. The RESTORE statement in line 320 tells the computer to 
begin again at the first item of data, even if it has previously read all the data. Try 
this: press BREAK to stop the program; delete line 320 (type 320 and press 
RETURN); then RUN the program. The computer will roll the first character. 


/t&t 


STR 13 

CON 16 

IQ 12 

LK 5 

DEX 11 

CHR 9 


TO GET ANOTHER CHARACTER, 
PRESS THE ‘RETURN’ KEY.7B 


Press the RETURN key. Oops! This is what you see. 


ERROR 


6 AT LINE 320 


This happened because the computer has already READ all the DATA in rolling 
the first character. So, put RESTORE back into the program to tell the computer to 
begin at the first item in the first DATA statement (in case there are two or more 
DATA statements). 

EXPERIMENT! Try both of these short programs: 


10 GR. 0 

10 GR. 0 

20 DIM A$(40) 

20 DIM A $(40) 

30 RESTORE 

30 READ A$ 

40 READ A$ 

40 PRINT A$ 

50 PRINT A$ 

50 GOTO 30 

60 GOTO 30 

90 DATA REST IN PEACE 

90 DATA REINCARNATED! 

* 

RESTOREd to Life! 

Embalmed Forever 
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Line 330 reads and prints the name of the game, the value of GAMES. Since it is 
preceded by RESTORE, line 330 will read the first value in the first DATA 
statement. 

On to block 400! Line 420 reads a value of ABBRS, first STR, then CON and so on 
to ZZZ. The first six items (STR through CHR) are the basic characteristics of a T&T 
adventurer. The last item (ZZZ) is a "flag/ which signals that all the interesting 
data have been read. This flag is sensed by line 430. 


430 IF ABBR$= "ZZZ" THEN 510 

i , -I 


IF 



the value of 
ABBRS is the 
flag ZZZ 


THEN go to line 510 


For STR, CON, IQ, LK, DEX and CHR, the condition is false. The computer rolls 
and prints the information for the characteristic. Then the computer reads ZZZ. 
Now the condition is true — the computer goes to line 510. 

Block 500 tells you how to get another character. Line 540 causes the computer 
to print a question mark, turn on the cursor and wait. You need only press 
RETURN to tell the computer to continue to the GOTO 310 statement in line 540 
and thus go back for another character. 


Questions 


1. Is the program below like RESTOREd to Life or like Embalmed Forever? 


10 

GR. 

0 

20 

DIM 

A $ ( 4 0 ) 

30 

RESTORE 

40 

READ 

A$ 

50 

PRINT A$ 

60 

GOTO 

40 

90 

DATA 

WHAT HAPPENED? 


It's like_ 

2. In the game of RuneQuest (RQ), the characteristics are STR, CON, SIZ, INT, 
POW, DEX and CHA. Modify the CREATE A CHARACTER program so the 
computer rolls a RuneQuest character. 
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Answers 


1. Embalmed Forever. But if you change line 60 to GOTO 30, it will be like 
RESTOREd to Life! 

2. Change only line 210! Here are three ways to write line 210. 

210 DATA RuneQuest,STR,CON,SIZ,INT,POW,DEX,CHA,ZZZ 
210 DATA RUNEQUEST,STR,CON,SIZ,I NT,P0W,DEX,CHA,ZZZ 
210 DATA RQ,STR,CON,SIZ,I NT,POW,DEX,CHA,ZZZ 

You can just as easily change the program to roll a Dungeons & Dragons[ D&D) 
character. The characteristics are STR,CON,INT,WIS,DEX and CHA. 

The Characteristics for Advanced Dungeons & Dragons (AD&D) are the same 
as for D&D. Suppose you want the computer to print the full name of AD&D, 
all 27 characters, including spaces. How would you write line 120? 


GU€SS MV WORD 


Next, a game of GUESS MY WORD. The computer chooses a three-letter word 
from a list of words in DATA statements. You guess the word. After an incorrect 
guess, the computer tells you to guess a "lower" word or a "higher" word. Here is 
the first part of the program and the list of words. 


100 

REM 

**GUESS MY 

WORD 


110 

GR. 

0 




120 

DIM 

W$(3),G$( 

3) 

, KY$ ( 1) 


300 

REM 

**TELL HOW 

TO PLAY 


310 

PR. 

C H R $(125) 




320 

PR o 

"I'll t hi 

nk 

of a 3- 

letter word." 

330 

PRo 

"My word 

i s 

between 

AAA and ZZZ." 

340 

P R „ 





350 

PR.. 

"My lowes 

t 

word is 

AAA. " 

360 

PR. 

"My highe 

s t 

word is 

ZZZ. " 
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400 REM**PICK RANDOM WORD FROM DATA 
410 RESTORE 
420 READ NW 

430 RW = I NT(NW*RND(0))+l 
440 FOR K=1 TO RW 
450 READ W$ 

460 NEXT K 



1000 REM**VALUE OF NW AND NW WORDS 
1010 DATA 44 

1020 DATA AHA,ARK,BAH,CAT,DIG,DUO 
1030 DATA EBB,ELF,FLY,FUN,GNU,HAW 
1040 DATA HEX,JET,JOY,LAX,LEU,MEW 
1050 DATA MUD,NIX,NUT,OAF,ODD,ORB 
1060 DATA PAL,PLY,RAM,RED,ROC,SHH 
1070 DATA SKY,SOL,TAX,TOO,UGH,VIA 
1080 DATA WAG,WAX,WHO,WOW,YAK,YOU 
1090 DATA ZIP,ZOO 



In line 420, the computer reads the number of words (NW). Since line 420 is 
preceded by a RESTORE statement, the value of NW will be the first item in the 
first DATA statement. So, NW becomes 44. 

Well, if NW is 44, the possible values of RW in line 430 are 1 to 44. Suppose RW is 
13. The FOR-NEXT loop in lines 440 through 460 reads 13 values of W$, each 
replacing the previous one. The 13th value is HEX. Or, if RW is 23, W$ will end 
with ODD as its value. Any of the 44 words in lines 1020 through 1090 are possible 
values of W$. 

You can put your list of words in lines 1020 on. If you do, count them and put the 
number of words in line 1010. 

Having selected a random word, the computer moves on. What next? 


500 REM**GET GUESS 
510 PR. 

520 PR. "YOUR GUESS";: IN. G$ 

600 REM**IF NOT CORRECT, GIVE HINT 

610 IF G$<W$ THEN PR."TRY A HIGHER WORD": GOTO 510 

620 IF G$>W$ THEN PR."TRY A LOWER WORD": GOTO 510 
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Aha! If the guess (G $) is "too low, "then G$ < W$ is true and the computer prints: 
TRY A HIGHER WORD. But if the guess is too "high," then G$ < W$ is false and 
GS > W$ is true. In this case, the computer prints: TRY A LOWER WORD. 



700 REM**WINNER! 

710 PR. "THAT'S IT! YOU GUESSED MY WORD." 


800 REM**TELL HOW TO PLAY AGAIN 
810 PR. 

820 PR."TO PLAY AGAIN, PRESS THE 'RETURN' KEY."; 
830 IN. KY$: GOTO 310 


Put it all together, enter the program and play. You may wish to change the hints 
in lines 510 and 520. Make that easier to do by these changes to the program. 


120 DIM M1 $(40),M2$(40),W$(3),G$(3),KY$(1) 
130 M1 $ = "TRY A HIGHER WORD." 

140 M2$ = "TRY A LOWER WORD." 

610 IF G$<W$ THEN PR. M1 $: GOTO 510 
620 IF G$>W$ THEN PR. M 2 $: GOTO 510 
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IMPORTANT NOTICE! When you run this program, enter your guess as a 
three-letter word with all letters in caps. 

Guess CAT instead of cat or Cat. 

Guess JOY instead of joy or Joy. 

Questions_ 

1. (a) Which is lower, JAM or RED?_ 

(b) Which is lower, CAT or CAR?_ 

(c) Which is higher, ANT or ZOO?_ 

(d) Which is higher, SUN or SUM?_ 

2. How would you change the original program to use words with up to eight 
letters? 


Answers_ 

1. (a) JAM is lower then RED. 

(b) CAR is lower than CAT. 

(c) ZOO is higher than ANT. 

(d) SUN is higher then SUM. 

2. First, change line 120 as follows 

120 DIM W$(8),G$(8),KY$(1) 

Then, put your words in DATA statements, beginning at line 1020. Put the 
number of words in the DATA statement in line 1010. 

Add some excitement in block 700. How about some sound? Or print the word 
all over the screen. Or switch to GRAPHICS 1 and print the winner's message in big 
letters with sound. Or go to GRAPHICS 3, 5 or 7. Print the winner's message in the 
text window and put on a colorful graphics show in the top part of the screen. 
Include sound, of course. 
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GU€SS MV l€TT€R 


For the very young, a game called GUESS MY LETTER. Here is the first piece. 

100 REM**GUESS HY LETTER 
110 GR. 0 

120 DIM ABC $ ( 26 ) , L $ ( 1 ) ,G$( 1 ) , K Y $ ( 1 ) , MI $ ( 6 ) , M2$ ( 5 ) 
130 ABC $ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

140 M1 $ = "HIGHER" 

150 M2$ = "LOWER" 

300 REM**TELL HOW TO PLAY 

310 PR. "I'LL THINK OF A LETTER, A TO Z." 

320 PR. 

330 PR. "MY HIGHEST LETTER IS Z," 

340 PR. 

350 PR. "MY LOWEST LETTER IS A." 


Line 130 assigns to the string variable ABCS a string value consisting of all 26 
letters of the alphabet. Thus, ABCS is a string in which the first character is A, the 
second character is B, the third character is C and so on. The 26th character is Z. 

Perhaps you have guessed that we are going to tell the computer to select, at 
random, one letter from ABCS. Block 400 selects one letter from ABCS and assigns 
it as the value of L$. 

400 REM**PICK RANDOM LETTER FROM ABC$ 

410 RL = I NT(26*RND(0)) + l 
420 L$ = ABC$( RL , RL) 

The value of RL will be a random integer from 1 to 26. Line 420 uses this value to 
select one letter from ABC$. 


• If RL is 1, then ABC$(RL,RL) is the letter A. 

• If RL is 2, then ABC$(RL,RL) is the letter B. 

• If RL is 3, then ABC$(RL,RL) is the letter C. 

• and so on. If RL is 26, then ABC$(RL,RL) is the letter Z. 
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The rest of the game is much like the game called GUESS MY WORD: 


500 REM**GET A GUESS 
510 PR. 

520 PR. "GUESS MY LETTER";: IN. G$ 

600 REM**IF NOT CORRECT, GIVE HINT 
610 IF G$<L$ THEN PR. M1 $: GOTO 510 
620 IF G $ > L $ THEN PR. M2 $: GOTO 510 

700 REM**WINNER! 

710 PR. "THAT'S IT! YOU GUESSED MY LETTER." 

800 REM**TE LL HOW TO PLAY AGAIN 
810 PR. 

820 PR."TO PLAY AGAIN, PRESS THE 'RETURN' KEY."; 
830 IN. KY$: GOTO 310 


We leave it to you to add some pizzazz to block 700. Use sound, color, or 
anything else you can think of as the "reward " for a correct guess. 

Boggled by ABC$(RL,RL)? This tells the computer to select a substring of ABCS. 
A substring is a string within a string. Try this ancient game of Words within 
Words: 

The word PROVERB contains these shorter words: 

PRO PROVE PROVER ROVE ROVER OVER VERB 
Now let WORDS = "PROVERB" 

• WORD$(l,3) is "PRO" (PROVERB) 

• WORDS(3,6) is "OVER" (PROVERB) 

• WORD$(4,7) is "VERB" (PROVERB) 

The word PROVERB has seven characters, numbered one through seven: 

1 2 3 4 5 6 7 

P R O V € ft B 


Assume the value of WORDS is "PROVERB". 

• WORDS(1,3) is the substring consisting of characters one through three of 
the value of WORDS. 
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• WORD$(3,6) is the substring consisting of characters three through six of 
the value of WORDS. 

• WORDS (4,7) is the substring consisting of characters four through seven of 
the value of WORDS. 

WORDS ='PROV€RB " 

1 2 3 4 5 6 7 


So WORDS(3,6) is "OV€R 


Here is a slightly shorter way to get a substring from a certain character to the 
right end of the word. 

WORDS (4) is the substring consisting of all characters from character number 4 
to the right end of the value of WORDS. 

WORDS = 'PROV«R6 

1 2 3 4 7 

So WORD$(4) is "V€RB 


Questions_ 

1. Suppose WORDS = "PROVERB" 

(a) What is WORDS(l,6)?_ 

(b) What is WORD$(2,5)?_ 

(c) What is WORD$(l,7)?_ 

(d) What is WORDS(l)?_ 

(e) How do we tell the computer we want the substring "ROVER"? 

WORDS)_,_) 

)f] How do we tell the computer we want the substring "ER"? 


(g) How do we tell the computer we want the substring "ERB"? 
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2. Complete the following program to make and print 40 random 3-letter 
"words." Each "word " consists of a consonant, a vowel and a consonant. For 
example: TOK, CIL, MAR etc. 


100 REM**RANDOM 3-LETTER "WORDS" 

110 GR. 0 

120 DIM V$(5 ) , C$(21),L1 $(1),L2$(1),L3$(1), KY$ (1) 
130 V$ - "AEI0U" 

140 C$ - "BCDFGHJKLMNPQRSTVWXYZ" 

200 REM**MAKE & PRINT 40 WORDS 
210 PR. CHR$(125) 

220 FOR W0RD=1 TO 40 


230 R - 


First random 
letter (consonant). 


240 R - 


245 L 2 $ = 


Second random 
“letter (vowel). 


235 L1 $ - 


250 R = _ 

I Third random 

2 5 5 L3$ = f letter (consonant). 

260 PR. L1 $; 12$; L3$, 

270 NEXT WORD 



300 REM**TE L L HOW TO DO AGAIN 
310 PR. 

320 PR. "FOR MORE WORDS, PRESS 'RETURN'."'; 
330 IN. KY$: GOTO 210 
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Answers 


1. (a) PROVER (b) ROVE (c) PROVERB 

(d) PROVERB Start at the first character and take everything to the end of 
the word. 

(e) WORD$(2,6) (f) WORD$(5,6) 


(g) WORD$(5,7) or WORD$(5] 


230 

R = 

INT(21*RND(0))+l 

235 

L 1 $ 

= C $ ( R , R ) 

240 

R = 

I NT(5*RND(0)) + l 

245 

12$ 

= V$(R,R ) 

250 

R = 

I NT(21*RND(0))+l 

255 

L 3 $ 

- C $ ( R , R ) 


The land of mnSCII 

Deep down inside the computer, each keyboard character has its very own 
numeric code, called an ATASCII code. ASCII means "American Standard Code 
for Information Interchange." ATASCII is ATari ASCII. 

• The ATASCII code for A is 65. 

• The ATASCII code for B is 66. 

• The ATASCII code for C is 67. 


You have probably guessed that the code for D is 68. The code for Z is 90. For the 
upper case (CAPS) letters A to Z, the ATASCII codes are 65 to 90. 

ATARI BASIC has a built-in function, called ASC, which gives the ATASCII code 
for any character. Clear the screen and try these. 


You type: PR.ASC("A") 
It prints: 65 


You type: PR.ASC("Z") 
It prints: 90 

You type: PR.ASC(" ") 
It prints: 32 ^ 



put a space here 
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Yes, even a space has an ATASCII code! 

EXPERIMENT! Use this program to find the ATASCII codes for keyboard 
characters. 

100 REM**ATASCII CODES, USING ASC 

110 GR. 0 

120 DIM KEY$( 1 ) 

200 REM**GET CHARACTER, PRINT ATASCII 
210 PR. "KEYBOARD CHARACTER " ; : I N . KEY$ 

220 CODE = ASC(KEY$) 

230 PR. "THE ATASCII CODE IS CODE 
240 PR.: GOTO 210 

Here is what happened when we ran the program: 

/KEYBOARD CHARACTER7A 
THE AT ASCII CODE IS 65 

KEYBOARD CHARACTER7Z 
THE ATASCII CODE IS 90 

KEYBOARD CHARACTER?a 
THE ATASCII CODE IS 97 

KEYBOARD CHARACTER71 
THE ATASCII CODE IS 49 

KEYBOARD CHARACTER?* 

THE ATASCII CODE IS 42 

KEYBOARD CHARACTER? • 

THE ATASCII CODE IS 20 





A graphics character (CTRL T) 


KEYBOARD CHARACTER? and so on. Take over! 


Look at line 220 in the program. 

220 COD€ = flSC(K€V$) 

This line computes the ATASCII code of the value of KEYS AND ASSIGNS this 
code as the value of CODE. Well, not quite. The value of KEYS could be a string 
with more than one character. In this case, ASC computes the ATASCII code of the 
first character in the string. 

For a complete list of ATASCII codes, see Appendix E. 
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ATASCII characters can be letters A to Z, or numerals 0 to 9, or punctuation 
marks : and so on), or special characters (*, %, and soon), and lots more. To help 
you really explore the world of ATASCII, use the CHR$ function. 

CHR$(COD€) 

\ 

ATASCII Code, 0 to 255. 

The CHR$ function gives the character that corresponds to the ATASCII code 
enclosed in parentheses. 

You type: PR. CHR$(65) 

It prints: A 

You type: PR. CHR$(20) 

It prints: • 

Some ATASCII codes are not printed characters, but instead perform control 
functions — they cause the computer to do something. For example: PR. 
CHR$(125) tells the computer to clear the screen. For a complete list of ATASCII 
codes visit Appendix E. 

EXPERIMENT! Use the following program to print characters that correspond 
to ATASCII codes: 

100 REM**ATASCII CHARACTERS, USING CHR$ 

110 GR. 0 
120 DIM KY$ ( 1 ) 

200 REM**ASK FOR ATASCII CODES 
210 PR. CHR$(125) 

220 PR. "FIRST ATASCII C0DE";:IN. FIRST 
230 PR. "LAST ATASCII C0DE;:IN. LAST 

300 REM**PRI NT CODES & CHARACTERS 
310 PR. CHR$(125) 

320 FOR C0DE=FIRST TO LAST 

330 P R „ CODE; C HR$(32); CHR$(CODE ) , 

340 NEXT CODE 

400 REM**TELL HOW TO DO AGAIN 
410 PR : PR. 

420 PR! "TO DO AGAIN, PRESS 'RETURN'"; 

430 IN. KY$: GOTO 210 
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Here is what happened when we ran the program using 32 for FIRST ATASCII 
CODE and 45 for LAST ATASCII CODE: 

/32 33 ! 34 " 35 # 

36 $ 37 % 38 & 39 ‘ 

40 ( 41 ) 42 * 43 + 

44, 45 - 

TO DO AGAIN, PRESS ‘RETURN’? ■ 

Oops! We thought the codes and characters would appear in neat vertical 
columns. They don't because the left margin is set to column 2. The comma causes 
the computer to move 10 places from the previous printing position. If this causes a 
move from the right end of a line to the left end of the next line, the computer skips 
over columns 0 and 1. So everything is pushed an extra two places to the right. 

OK, let's reset the left margin! We'll use one of those mysterious POKE com¬ 
mands to set the left margin to column 0. Add this line to the program. 

130 POK€ 82,0 


Run the program and you will see this: 

column 0 column 10 column 20 column 30 



32 

33 ! 

33 " 

35# 

36$ 

37% 

38& 

39 ‘ 

40 ( 

41 ) 

42 * 

43 + 

44, 

45 - 




TO DO AGAIN, PRESS ‘RETURN’? ■ 


Now use the program to learn more about ATASCII codes. Remember, an 
ATASCII code is a number in the range 0 to 255. 

• Try upper case letters, 65 to 90. 

• Try lower case letters, 97 to 122. 

• Try graphics characters, 0 to 26. 

• Try inverse upper case letters, 193 to 218. 

• Try inverse lower case letters, 225 to 250. 

• Try inverse graphics characters, 128 to 154. 

• Try codes we haven't mentioned. 
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When you are finished, you can leave the left margin set to column zero or 
change it back to column two like this: POKE 82,2 

Pressing SYSTEM RESET also returns the left margin to column two. 

Questions_ 

1. Complete the following: 


(a) 

You type: 
You type: 

It prints: 

C$ = "A" 

PR.ASC(CS) 

(b) 

You type: 
You type: 

It prints: 

C$ = "a" 

PR.AXC(CI) 

(c) 

You type: 
You type: 

It prints: 

C$ = "CAT" 
PR.ASC(CS) 

(d) 

You type: 
You type: 

It prints: 

C$ = "A " 

PR.ASC(C$) 


2. Suppose the computer obeys the following two lines: 

410RL = INT(26*RND(0)) +65 
420LJ = CHR$(RL) 

Describe the value of L$. 


Answers_ 

1. (a) 65 (b) 97 (c) 67 (d) 32 The code for space 

2. Line 310 computes a random number from 65 to 90 and assigns it as the value 
of RL. Therefore, in line 420, the value of L$ will be a random letter from A to 
Z. Of course, L$ must appear in a DIM statement earlier in the program. Use 
these lines in the GUESS MY LETTER program to pick a random letter. If you 
do, you can delete line 130 which assigns the alphabet to ABCS. 

WORD MAK€R 

Suppose you are creating a fantasy adventure such as Dungeons a?id Dragons, 
RuneQuest, or Tunnels and Trolls. You may wish to use unusual names for your 
heroes, wizards, monsters and other creatures. You could, of course, borrow 
names from fantasy adventure books such as Lord of the Rings. But perhaps you 
prefer to invent your own. 

Why not use your computer to help you invent names? Sounds OK, but how do 
we get the computer to print names that are pronounceable (or almost so) and 
seem to be unusual, exotic or even fantastic? 
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That's the problem. Write a program to generate and print or display random 
names that might be used in a fantasy or science fiction game or story. Try this 
program to make five-letter words consisting of consonant, vowel, consonant, 
vowel, consonant. For example, here are some possible words: MALOK, BARAK, 
CONAN, DYMAX, KUMAN, LOSAS, MIKOS. 

We begin by saving space for string variables and setting the left margin to zero. 
We want our words to line up in neat vertical columns: 


100 

REM* 

*W0RD MAK 

ER 


no 

DIM 

C $(21),RC 

$( 1 ) , V$( 6 ), 

R V $ ( 1 ) 

1 20 

DIM 

WORDS(20) 

,KY$( 1 ) 


1 30 

GR. 

0 



200 

REM* 

*SET LEFT 

MARGIN TO 

ZERO 

210 

POKE 

82,0 




Arbitrarily and capriciously, we decide to make 60 words, 15 lines with four 
words per line. We call a subroutine to make one word: 

400 REM**MAKE & PRINT WORDS 
410 PR. CHR$(125) 

420 FOR W = 1 TO 60 

430 G0SUB 710 : REM**MAKE A WORD 

440 PR. WORDS, 

450 NEXT W 


After it prints 60 words, we want the computer to tell how to make another 
batch of words: 

500 REM**TELL HOW TO DO AGAIN 
510 PR.: PR. 

520 PR. "FOR MORE WORDS, PRESS 'RETURN'"; 

530 IN. KY$: GOTO 410 
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Three subroutines complete the program. The first makes one word. In turn, it 
uses two other subroutines, one to add a consonant and another to add a vowel to 
the word being made. 


700 

REM** 

MAKE 

A WORD SUBR 

0UTINE 

710 

WORDS 

ll II 



720 

G0SUB 

810 

:REM**ADD 

CONSONANT 

730 

G0SUB 

910 

:R EM**ADD 

VOWEL 

740 

G0SUB 

810 



750 

G0SUB 

910 



760 

G0SUB 

810: 

RETURN 



Finally, here are the subroutines to add a consonant and add a vowel: 


800 REM**ADD CONSONANT SUBROUTINE 
810 C$ = "BCDFGHJKLMNPQRSTVWXYZ" 
820 RC = INT(21*RND(0)) +1 
830 RC$ - C$(RC,RC ) 

840 W0RD$(LEN(W0RD$)+1 ) = RC$ 

850 RETURN 


900 

910 

920 

930 

940 

950 


REM 

*AD 

D 

VOWEL 

SUB 

ROUT 

V$ 

ll 

AE 

I 0U Y 11 



RV 

= I 

NT 

(6*RN 

D (0 ) 

) + l 

R V $ 

— 

V$ 

( RV, R 

V) 


W0R 

DS ( 

LE 

N (W0R 

D$) + 

1) = 

RET 

URN 







WORDS 

RC$ or RV$ 

LEN(WORDS) 

WORD$(LEN( WORDS) +1) 

empty 

M 

0 

M 

M 

A 

1 

MA 

MA 

Z 

2 

MAZ 

MAZ 

I 

3 

MAZI 

MAZI 

N 

4 

MAZIN 
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Here is a sequence of examples to help you get the hang of how this works. Do 
them slowly and ponder each result. Clear the screen, then begin: 


1) 

You type: 

DIM W$(20) 

W$ = "123456" 

PR. W$ 


It prints: 

123456 

2) 

You type: 

W$(1,1) = "D" 

PR. W$ 


It prints: 

D23456 

3) 

You type: 

W$(2,3) = "RA" 

PR. W$ 


It prints: 

DRA456 

4) 

You type: 

W$(4) = "GON " 

PR. W$ 


It prints: 

DRAGON 

5) 

You type: 

W$(7) = "S " 

PR. W$ 


It prints: 

DRAGONS 

6] 

You type: 

W$(LEN(W$) +1) = "MOKE 
PR. W$ 


It prints: 

DRAGONSMOKE 


Got it? Please say yes! 


Questions_ 

1. Our WORD MAKER program makes words of the form CVCVC, where "C" 
stands for "consonant" and "V " stands for "vowel. " For example, 

MAZIN 

ttttt 

CVCVC 

Change the program so it makes words in the form CCVCV (consonant, 
consonant, vowel, consonant, vowel). With this change, you might see words 
such as FRODO, THENA, STOKI, CHATO, XXOPU and so on. 
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2. Why not let the user decide on the structure of the words (sequence of 
consonants and vowels). Write a new block 200 so the computer asks: 

WORD STRUCTURE? ■ 


Now someone can enter CVCVC or CCVCV or VCCVCV or whatever 
sequence of consonants and vowels he or she wants. The only other thing 
you need change is the WORD MAKER SUBROUTINE. 


Pretend you are the 

computer and complete each of the following: 


You type: 

DIM NAME$(20),PREFIX$(10),SUFFIX$(10) 
PREFIX$ = "BIL" 

SUFFIX$ = "BO" 

(a| 

You type: 

It prints: 

PR. PREFIX$;SUFFIX$ 

(b| 

You type: 

NAMES = PREFIXS 


It prints: 

PR. NAMES 

(cl 

You type: 

NAME$(LEN(NAME$) + 1) = SUFFIXS 


It prints: 

PR. NAMES 


Answers 


Change 

only block 700. 





700 

REM** 

MAKE 

A WORD ! 

5UBR0 

UTIN 

E 

710 

WORDS 

II II 





720 

G0SUB 

810 

:REM**ADD 

CONS 

0NANT 

730 

G0SUB 

810 





740 

G0SUB 

910 

:REM**ADD 

V0WE 

L 

750 

G0SUB 

810 





760 

G0SUB 

910: 

RETURN 





2. We leave this as a challenge for you. 

3. (a) BILBO 

(b) BIL 

(c) BILBO 
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CR€RT€ fl CHRRRCT€R 


ATARI BASIC provides a function called VAL to convert strings to numbers. Here 
are some examples: 


VAL( "1") is 1. 
VAL("3") is 3. 


Also: 

VAL( "12") is 12. 
VAL( "1234") is 1234. 

However, 


VAL( "2") is 2. 
VAL( "9") is 9. 


VAL( "123") is 123. 
and so on 


VAL("ABC") gives an ERROR 18 message. 
Letters are OK if they occur to the right of a number. 

VAL( "1ABC") is 1. VAL( "123ABC") is 123. 


Here is another way to get an error message: VAL(123) 

VfiL (_) 

/ 

Must be a string or string variable or string expression. 


EXPERIMENT! Use this program to play with VAL. 


10 REM**EXPERIMENT WITH VAL 
20 GR. 0 
30 DIM X$(20 ) 

40 IN. X$ 

50 PR. VAL(X$) 

60 PR.: GOTO 40 
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Below is the beginning of a program to create a character for any of the game 
systems Dungeons & Dragons, RuneQuest, or Tunnels & Trolls. 

100 REM**CREATE A CHARACTER 

110 DIM DD$(26),RQ$(30),TT$(26),KY$(1), 

GAME S$(2),A B B R $(30) 

120 GR. 0 

200 REM**ABBREVIATI0NS 

210 DD$ = "6 STR CON INT P0W DEX CHA " 

220 RQ$ = "7 STR CON SIZ INT P0W DEX CHA " 

230 TT$ = "6 STR CON IZ LK DEX CHR " 


Each string variable contains the abbreviations for one game and the number of 
abbreviations in the string. Each abbreviation is a substring consisting of the 
abbreviation followed by one or two spaces to make a total of exactly four 
positions: 

DD$ = "6 STR CON INT POUJ D€X CHR 

Position: 1 3 7 11 15 19 23 

RO$ = 1 STR CON SIZ INT POUJ D€X CHR " 

Position: 1 3 7 11 15 *19 23 27 



TT$ = " 

Position: 


6 STR CON IQ 

13 7 11 


LK D€X CHR 



Let's move on. Here's more of the program: 


300 REM**TELL WHAT TO DO 
310 PR. CHR$(125) 

320 PR. "I CAN CREATE A CHARACTER FOR 1 


330 PR. 
340 PR. 
350 PR. 
360 PR. 


DUNGEONS & DRAGONS (DD)" 
RUNEQUEST (RQ)" 
TUNNELS & TROLLS (TT ) " 


I 
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400 REM**FIND OUT WHICH GAME 
410 PR. 

420 PR. "WHICH GAME (DD, RQ, OR TT)";:IN. GAME$ 
430 IF GAME$="DD" THEN ABBR$=DD$: GOTO 510 

440 IF GAME$="RQ" THEN ABBR$=RQ$: GOTO 510 

450 IF GAME$="TT" THEN ABBR$=TT$: GOTO 510 

460 GOTO 310 

If you enter DD, RQ., or TT, the computer moves on to line 510 after first setting 
ABBR$ to the appropriate characteristic string. Time to roll a character: 

500 REM**R0LL THE CHARACTERISTICS 
510 NC = VAL(ABBR$) 

520 FOR K = 1 TO NC 

530 C = 4*K - 1 

540 GOSUB 910 

550 PR. ABBR$(C,C+3), DICE 

560 NEXT K 


Remember, ABBRS is set to DD$, RQ$ or TT$ in lines 430 through 450. For 
example, if you enter RQ in response to line 420, then ABBR$ will be set equal to 
RQ$. 


ABBR$ = RQ$ = " 1 STR CON SIZ INT POW DEX CHA " 

Line 510 sets NC equal to 7. So lines 530, 540 and 550 will be done for K = 1, 2, 3, 
4, 5, 6 and 7. 

K =1 

c = 4*K - 1 = 4*2 - 1 = 3 
ABBR$(C,C + 3] = ABBR$(3,6) = "STR " 


K = 2 

C = 4*K - 1 = 4*2 -1=7 
ABBR$(C,C + 3) = ABBR$(7,10) = "CON " 
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K = 7 

c = 4*K - 1 = 4*7 - 1 = 27 
ABBR$(C,C + 3) = ABBR$(27,30) = "CHA " 


Finally, the last two pieces of the program: 


600 

REM* 

*TEL 

L 

HOW TO 

DO AGAIN 

610 

PR, 





620 

PR. 

"FOR 

A 

NOTHER, 

PRESS 'RETURN'"; 

630 

IN. 

K Y $: 

GOTO 310 


900 

REM* 

* D I C 

E 

SUBROUT 

INE 

910 

D1 - 

INT 

(6 

*RND (0) 

) + l 

920 

D2 - 

I NT 

(6 

*RND(0) 

) + l 

930 

D3 = 

I NT 

(6 

*RND(0) 

) + l 

940 

DICE 

= D 

1 

+ D2 + 

D3 

950 

RETU 

RN 





Questions___ 

1. When the computer asks WHICH GAME (DD, RQ, OR TT)?H, what hap¬ 
pens if you enter: 

(a) DD_ 

(b) MONOPOLY_ 

2. In lines 210, 220 and 230, the string values for DD$, RQ$ and TT$ each end 

with a space. Why is this space required?_ 


flnsuuers_ 

1. (a) The computer creates a character using the six abbreviations in DD$. 

(b) The conditions in lines 430, 440 and 450 are all false. So the computer 
goes back to line 310 and asks again. 
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2. Each abbreviation occupies exactly four spaces. Line 550 prints a substring 
from ABBR$ exactly four characters long, Beginning with the first letter of 
the abbreviation and ending with a space. Therefore, the last abbreviation 
must be four characters long. Try it without the final space and see what 
happens. Of course, you could pack the information as follows: 

210 DD$ = "6STRC0NINTWISDEXCHA" 

220 RQ$ = "7STRC0NSIZINTPOWDEXCHA" 

230 RQ$ = "6STRC0NIQ LK DEXCHR" 


If you pack the information as shown above, how must you change lines 530 
and 550? 


OPEN n CHRNNCL & G€T A CHARACT€fi 


Inside the computer, there are many pathways for information to move from place 
to place. They are called channels. We will describe how to OPEN a channel and 
GET a character from the keyboard. Experiment with this little program. 


100 REM**EXPERIMENT WITH OPEN & GET 
110 GR. 0 


200 REM**0PEN CHANNEL TO KEYBOARD 
210 OPEN #1,4,0,"K:" 

300 REM**TE LL WHAT TO DO 
310 PR. "PRESS A KEY.." 

400 REM**GET & PRINT KEY & GO FOR MORE 
410 GET #1, KEY 

420 PR o "YOU PRESSED "; CHR$(KEY) 

430 PR. "ITS ATASCII CODE IS KEY 
440 PR.: GOTO 310 
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Here is what happened when we ran the program: 



Spend some time with this program. 

• Hold CTRL down and press a key. 

• Try some LOWR CASE letters. 

• Try some inverse video characters. 

Line 210 tells the computer to OPEN channel number 1 for input from the 
keyboard. 

Not used, make it zero. 

OP€N #1,4,0, "K:" 


OPEN channel for input from keyboard 
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This is done as soon as you press the key. You don't have to press RETURN. 
Please note that channel #1 is used in both lines 210 and 410. 

Use this program to GET and play some music: 


100 

REM**KEYBOARD MUSIC 

USING GET 

110 

6R. 0 





200 

REM**0P E N 

CHANN 

EL TO 

KEYBOARD 

210 

OPEN #1,4 

• • 

o 

#\ 

II 



300 

REM**TELL 

WHAT 

TO DO 



310 

PR. "PRESS ANY 

KEY, 

1 TO 

8, OR" 

320 

PR. "PRES 

S ZERO 

(0) 

FOR 

SILENCE. " 

400 

REM**GET 

& VERI 

FY A 

KEY 


410 

GET #1, K 

EY 




420 

IF KEY<48 

OR KE 

Y >5 5 

THEN 

410 

500 

REM**PLAY 

THE N 

0TE 



510 

ON KEY-47 

GOSUB 

610, 

620, 

630,640,650,660, 

670. 

,680,690 





520 

SO. 0,TN, 

10, 10 




530 

GOTO 410 






600 

REM 

★ * 

SELECT TONE 

610 

TN 

— 

0 

RETURN 

620 

TN 

— 

121 

RETURN 

630 

TN 

— 

108 

RETURN 

640 

TN 

— 

96 

RETURN 

650 

TN 

— 

91 

RETURN 

660 

TN 

— 

81 

RETURN 

670 

TN 

— 

72 

RETURN 

680 

TN 

— 

64 

RETURN 

690 

TN 

— 

60 

RETURN 


NUMBER SUBROUTINE 




Enter this program and play some music. Use the number keys 1 to 8 for tones. 
Use 0 to shut off the sound. You will quickly find some limitations. For example, 
you can't play the same tone twice in succession and hear two distinct sounds. 
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Questions_ 

1. In the KEYBOARD MUSIC USING GET program: 

(a) What is the purpose of line 420? 

(b) In line 510, what are the possible values of KEY-47?_ 

2. If you pluck a string on a quitar or strike a key on a piano, the sound 
"decays," dies out naturally. Change block 500 so the sound fades away to 
silence, unless you press another key. 


Answers_ 

1. (a) If the value of KEY is not an ATASCII code for a number key 0 to 8, the 

computer goes back to line 410. 

(b) The possible values of KEY, thanks to line 420, are 48 (ATASCII code for 
"0") to 56 (ATASCII code for "8"). So the possible values of KEY-47 are 1 
to 9, just what we need in the ON—GOSUB statement. 

2. Here is one way. Change block 500 from line 520 on, as follows: 


500 

REM** 

PLAY 

THE 

NOT 

E 



510 

ON KE 

Y - 4 7 

GOSl 

JB 6 

10 

,6 

20 

670, 

,680,6 

90 






520 

FOR L 

II 

o 

— 1 
o 

o 

STE 

P 

- 1 


530 

SO. 

0, T N 

, io ; 

> L 




540 

TD 

= 10 






550 

FOR 

Z=1 

TO TD: 

NE 

XT 

Z 

560 

NEXT 

L 






570 

GOTO 

410 







630,640,650,660, 


The loudness (L) fades 
from 10 to 0. Try other 
values of TD 
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S€IF-T€ST 


Use your string magic to wrap-up this Self-Test. 

1. Start with easy stuff by answering these questions or completing the sen¬ 
tences. 

(a) What does DIM ABC$(26),WORD$(20),KY$(1) tell the computer to do? 

(b) What does RESTORE tell the computer to do? 

(c) Which is true: "STAR" < "STARS" or "STARS " < "STAR " 

(d) Which is false: "ZZZY"< "ZZZ" or "ZZZ"<"ZZZY" 

(e) What is LEN( "ABCDEFG ")? 

(f) What is LEN( "12345679")? 

(g) WhatisLEN|"")?_ 

(h) Since ASC("* ") is 42, then CHR$(42) must be_. 

2. IfW$ = "DRAGONSMOKE", what is: 

(a) W$(l,7)?_ 

(b) W$(7,11)?_ 

(c) W$(3,3)?_ 

(d) W$(7)?_ 

And, for each substring of W$, write the corresponding expression: 

(e) W$(_,_) is "OK". 

(f) _is "RAG". 

(g) _is "E". 

(h) is "RAGONSMOKE". 
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3. What is the printed result of the following program? Don't RUN it. Look at it, 
puzzle over it, figure out what it does. 


100 

REM* 

*MYSTER 

Y PR 

OGRAM 



110 

DIM 

W $ (3 ) 





120 

GR. 

0 





200 

REM* 

*HERE I 

S TH 

E MYST 

ERY 


210 

NW = 

0 





220 

READ 

W$ 





230 

IF W 

* 

* 

* 

A 

V 

go- 

" TH 

EN NW = 

NW+1 

: GOTO 

300 

REM* 

*PRINT 

THE 

RESULT 

AND 

STOP 

310 

PR. 

"THERE 

ARE 

";NW;" 

WOR 

DS . " 

320 

END 






1000 

REM 

**W0RDS 





1010 

DATA ARK, 

CAT, 

ELF, 

FUN, 

GNU 

1020 

DATA HEX, 

JET, 

JOY, 

MEW, 

MUD 

1030 

DATA NUT, 

OAF, 

PAL, 

RAM, 

RED 

1040 

DATA SOL, 

TOO, 

UGH, 

VIA, 

WAG 

1050 

DATA YAK, 

ZIP, 

ZOO, 

k k k 



What does the computer print?_ 

4. Now, using what you learned in question 3, rewrite the GUESS MY WORD 
game in pages 273 to 276. Follow the outline of REM statements. 

100 REM**GUESS MY WORD 

200 REM**C0MPUTE NW=NUMBER OF WORDS 

300 REM**TELL HOW TO PLAY 

400 REM**PICK RANDOM WORD FROM DATA 

500 REM**GET GUESS 

600 REM**IF NOT CORRECT, GIVE CLUE 

700 REM**WINNER! 

800 REM**TELL HOW TO PLAY AGAIN 
1000 REM**LIST OF WORDS + *** 


Put as many three-letter 
words here as you want 
with * * * after last word. 
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5. Complete the following program to play MUSIC FROM ATASCII CHAR¬ 
ACTER. The program begins this way: 


100 REM**MUSIC FROM ATASCII CHARACTERS 
110 DIM STRNG$(100) 5 C$( 1 ) ,KY$( 1) 

120 GR. 0 


200 

REM**TEL 

L WHAT 

TO 

DO 




210 

PR. 

C HR$ 

(125) 






220 

PR. 

"ENT 

ER ANY 

ST 

RING 

AND I 1 

LL 

PLAY" 

230 

PR. 

"MUS 

IC MAD 

E F 

ROM 

YOUR ST 

RI 

NG. " 

300 

REM**ASK 

FOR A 

ST 

RING 




310 

PR. 








320 

PR. 

"YOU 

R STR I 

NG" 

I 

N. STRN 

G$ 



You write the rest of the program. For each character in STRNG$, play the 
tone that corresponds to the ATASCII code of the character. After all charac¬ 
ters have been "played, " ask if the user wants to play again. 

6. Complete this program to play music in the key of C: 


100 

REM 

**STRING 

MUSIC 

IN KEY 

OF C 



1 10 

DIM 

STRNG$( 

100) 





1 20 

GR. 

0 






200 

REM 

**TELL W 

HAT TO 

DO 




210 

PR. 

CHR$ (1 2 

5 ) 





220 

PR. 

"ENTER 

A STR I 

NG WITH 

ONLY 

LETT 

ERS" 

230 

PR. 

"A TO G 

. I'LL 

PLAY MUSIC 

IN TH 

E" 

240 

PR. 

"KEY OF 

C MAD 

E FROM 

YOUR 

STRIN 

G. " 

You write the 

rest. 

Play tones as 

follows for letters A to G. 



C 


D E 

F 

G A 

B 



121 

108 96 

91 

81 72 

64 




For any character not a letter A to G, play silence. 
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7. Write a program to make sentences that begin with "The Dragon." A run 
might go like this. 

Please give me: 

a verb ? ate 
a noun ? knight 
an article ? the 
an adjective ? lazy 

The Dragon ate the lazy knight. 

FOR ANOTHER, PRESS RETURN 

Answers to Self-Test 


1. (a) Reserve room in memory, as follows: 26 character positions for ABCS, 20 

positions for WORDS, and one position for KYS. 

(b) Start at the first data item in the first DATA statement. 

(c) "STAR" < "STARS" is true. 


(d) "ZZZY"< "ZZZ" is false. 

(e) 7 

(f) 8 Did we fool you? Look again. There is no 8 in the string. 

(g) o 



* 


2. (a) DRAGONS 

(c) A 

(e) W$(9,10) 

(g) W$ (11,11) or W$(11) 


(b) SMOKE 
(d) SMOKE 
(f) W$(2,4) 

(h) W$(2,ll) or W$(2) 


3. There are 44 words. This program counts the words up to, but not including 

ic ir ★ 


4. 


We leave this to you. 




302 ATARI BASIC, XL Edition 


5. 400 REM**NUMBER OF CHARACTERS IN STRING 

410 NC = L EN(STRNG$ ) 

500 REM**PLAY, MAESTRO, PLAY! 

510 FOR K=1 TO NC 
520 C$ - STRNG$(K,K) 

530 TN = ASC(C$ ) 

540 TD = 10 

550 FOR L = 10 TO 0 STEP -1 
560 SO. 0,TN,10 , L 

570 FOR Z=1 TO TD: NEXT Z 

580 NEXT L 
590 NEXT K 

600 REM**TELL HOW TO DO AGAIN 
610 PR. 

620 PR. "TO DO AGAIN, PRESS ‘RETURN’"; 
630 IN. KY$: GOT 210 


6 and 7. We leave these to you. In problem 6, we suggest you use 
ON...GOTO or ON...GOSUB to select the tone numbers for letters A to G. 





Chapter 

Eleven 





In this chapter you will learn to use subscripted variables and bunches of sub¬ 
scripted variables, called arrays. You will use arrays of subscripted variables in 
programs to twinkle stars, play music, simulate coin flipping and dice rolling, 
count votes and compute information from quiz scores. Subscripted variables add 
a new dimension to your ability to make the computer do what you want it to do. 
When you finish this chapter, you will be able to: 

• Recognize and use subscripted numeric variables 

• Use the DIM (for DIMension) statement to reserve memory space for 
arrays(lists) of subscripted variables 

• Enter numbers into numeric arrays in several ways 
Arrays of subscripted variables are powerful and useful tools. 
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n N€W KIND OF VRRIRBl€ 


You have used simple numeric variables and string variables. 

• Numeric variables: A N TD KOLOR TEMPO ROW 1 

• String variables: A$ N$ NAMES WORDS 

Now you will meet and learn how to use a new type of variable called a 
subscripted numeric variable. 

• Subscripted numeric variables: N(3) SP(7) COL(K) 

A subscripted variable consists of a variable name followed by a number 
enclosed in parentheses: 

• A(3) is a subscripted variable 

• A3 is not a subscripted variable. It is a simple numeric variable. 

• But A3(2) is a subscripted variable. 


A subscripted variable consists of: 


a numeric variable 

name T 

left parenthesis 

T( 

a subscript 

T(5 

right parenthesis 

T(5) 


T(5) 


/ \ 


variable subscript 





A subscript can be a number. 

D(1) "D sub 1" 

ROW(6) "ROW sub 6" 

A subscript can be a numeric variable. 

T(R) "T sub R " 

KOLOR(K) "KOLOR sub K" 

COLl(X) "COL1 sub X" 
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A subscript can be a numeric expression. 

T(N + 1) "T sub N plus 1" 

W(2*K — 1) "W sub 2 times K minus 1" 

A subscript can be a quite complicated numeric expression. 

TN(fiSC(l$)-64) 

i-,-' 

ATASCII code of L$ minus 64 


Now you know what subscripted variables look like. But what are they good 
for? Patience—we are slowly getting to it. 

An array is a list of subscripted variables. Below are some arrays of subscripted 
variables. 

• An array with three subscripted variables: T(0) T(l) T(2) 

• An array with four subscripted variables: D(0) D(l) D(2) D(3) 


IMPORTANT NOTICE! Subscripts are whole numbers 0, 1, 2, 3 and so 



Once more, think of the computer's memory as a bunch of boxes, called number 
boxes (Chapter 4) and string boxes (Chapter 5). Now you also have arrays of 
subscripted number boxes. For example, here is an array of nine number boxes: 


TN(0) 


TN (1) | 


TN(2) 

This is the array TN 

TN(3) 

consisting of nine 

TN(4) 

subscripted variables 

TN(5) | 

TN(0) through TN(8). 

TN(6) [ 


TN(7) | 


TN(8) | 





306 ATARI BASIC, XL Edition 


Each number box (subscripted numeric variable) can hold one number. So lets 
put numbers in these boxes: 


TN(0) 
TN (1) 
TN(2) 
TN(3) 
TN(4) 
TN (5) 
TN(6) 
TN (7) 
TN(8) 


0 

121 

108 

~96 

~ 

~ 

"64 

"60 


Do these numbers 
look familiar? 

Boxes TN(1) through TN(8) 
have values that are the 
tone numbers for Middle C, 

D, E, F, G, A, B, and C 

above Middle C. In the 

next section, we will use 

the array TN in a music program. 


Questions_ 

1. Circle each subscripted numeric variable. 

TN(0) R2D2(C3P0) N$(10) K9 X(3*N-2) 

Z( - 1) A(L$) TN(KEY - 48) 

2. A small array: D(0) CO D(l) [U D(2) Qj] 

(a) How many subscripted numeric variables does the array have?_ 

(b) What is the value of D(0)?_ 

(c) What variable has the value of 0?_ 

(d) What is the value of D(0) + D( 1)?_ 

3. An array called ROW has six subscripted variables, beginning with ROW(O). 
Write the names of all subscripted variables in the array called ROW. 


Answers_ 

1. These are subscripted numeric variables: TN(0), R2D2(C3P0), X(3*N-2), 
and TNjKEY -48). What are the others? N$(10) is a string variable, K9 is a 
simple numeric variable, Z( — 1) and A(L$) are illegal. 

2. (a) 3 (b) 7 (c) D(2) (d) Since the value of D(0) is 7 and the value of D(l) is 2, the 
value of D(0) + D(1) is 7 + 2 = 9. 

3. ROW(O), ROW(l), ROW(2), ROW(3), ROW(4) and ROW(5). 
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KCVBOflRD MUSIC 


We will use the array TN to store tone numbers in a program to play music using 
the number keys 0 through 8. Before using an array, we must first DIMension it. So 
we begin this way: 

100 REM** KEYBOARD MUSIC WITH ARRAY TN 
110 DIM TN(8) 

120 GR.O 


Line 110 tells the computer to save space for nine subscripted variables, TN(0) 
through (TN8). This is similar to the way string variables are dimensioned. 
Remember, though, that for numeric subscripted variables, the first subscript is 
zero (0) instead of one (1). 

Next, we want to put tone numbers in TN(0) through TN(8). We'll use READ and 
DATA in a FOR-NEXT loop. 

200 
210 
220 
230 
240 
250 


REM** READ TONE NUMBERS 
FOR K=0 TO 8 

READ TN: TN(K)=TN 
NEXT K 

DATA 0, 121, 108, 96 
DATA 91, 81, 72, 64, 60 


INTO TN 


Please explain ) 
line 220 / 




OK. Line 220 tells the computer to read a value for the simple numeric variable 
TN, then assign the value to the subscripted variable TN(K). It seems that, in ATARI 
BASIC, you can't read a value directly into a subscripted numeric variable. Try the 
following to see what happens: 

220 READ TN(K) 


The tone numbers are now stored, with TN(0) = 0, TN(1) = 121 and so on. The 
next three blocks are similar to the KEYBOARD MUSIC USING GET program in 
chapter 10. 

300 REM**0PEN CHANNEL TO KEYBOARD 
310 OPEN #1,4,0,"K:" 

400 REM**TELL WHAT TO DO 

410 PR. "PRESS ANY KEY, 1 TO 8, OR" 

420 PR. "PRESS ZERO (0) FOR SILENCE." 
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500 

REM 

**GET & VERIFY A 

KEY 

510 

GET 

#1, KEY 


520 

IF 

KEY< 48 OR KEY >5 5 

THEN 510 


To get past block 500, someone must press a number key from zero (0) to eight 
(8). These keys have ATASCII codes from 48(for zero) to 55(for eight). Aha! We 
now use the ATASCII code to pick up the tone number in the array TN. 


600 

REM** 

PLAY 

THE 

NOT 

E 

610 

FOR L 

= 10 T 

0 0 

STE 

P -1 

620 

SO. 

0, TN 

(KEY 

-48 

), 10 , 

630 

TD 

= 10 




640 

FOR 

Z = 1 

TO T 

D: 

NEXT Z 

650 

NEXT 

L 




660 

GOTO 

510 





The sound fades away 
since loudness (L) goes 
from 10 to 0. Try 
other values of TD 


For example, if someone presses the 4 key, the value of KEY in line 510 will be 
52. So, in line 620, TN(KEY - 48) will be TN(52-48) = TN(4) = 91. Remember, 
since the values of KEY can be 48 to 55, the values of KEY - 48 will be 0 to 8, the 
subscripts in the array TN! 


Questions_ 

1. How would you change the program to play music in the scale of G? Here are 
the letter notes, tone numbers, and number keys. 



Letter note G A B C D E F#G 

Tone number 81 72 64 60 53 47 42 40 

Number key 12345678 

2. Modify our program to add one more note, played by pressing the nine (9) 
key. In our scale of C, add the tone number 53 as the value of TN(9). 
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Answers_ 

1. Change only the DATA statements, as follows: 


240 DATA 0, 81,72, 64 
250 DATA 60, 53,47, 42, 40 


2. Make these changes: 


110 DIM TN(90) 

210 FOR K = 0 TO 9 

250 DATA 91,81,72, 64, 60, 53 

IT'S 1984 AND UJ€ CAN STILL VOT€! 

Election day is coming and the pollsters are everywhere, sampling public opinion. 
Jason decided to run his own poll. So he asked his friends their opinions. 

Who will you vote for in the coming elec¬ 
tion? Circle the number to the left of your 
choice. 

1. Sam Smoothe 

2. Gabby Gruff 

Let's write a program to count the votes each candidate received in the poll. You 
have 32 responses to your questionnaire, each response being either a "l" or a "2". 
First, record the votes in DATA statements. 


900 REM**V0TES & END-OF-DATA FLAG(-l) 

910 DATA 1, 1, 2, 2, 2, 1, 1, 2, 2, 2, 1, 1, 1, 2 
920 DATA 1, 2, 1, 1, 2, 2, 1, 1, 1, 2, 1, 2, 2, 2 
930 DATA 1, 1, 2, 1, -1 


End-of-data flag (not a vote) 
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How many votes did Sam Smoothe receive? How many votes did Gabby Gruff 
get? To answer those last two questions, you probably counted the l's in the DATA 
statements to find out how many votes Sam Smoothe received. Then you counted 
the 2's to find out how many votes Gabby Gruff received. 

Your computer can count votes by using subscripted variables to keep a running 
total of the l's and 2's read from the DATA statements. When it comes to the end-of- 
data flag ( -1) it stops counting and prints the results. Let's write a program to the 
count the votes. We'll use C(l) to count Sam's votes and C(2) to count Gabby's votes. 

Sam's votes: C(l) 

Gabby's votes: C(2) 


We begin by DIMensioning the C array and starting the vote count at zero. 


1 00 

REM** 

VOTE 

COUNTING 

PROGRAM 

no 

DIM C 

(2) 



1 20 

GR. 0 




200 

REM** 

SET 

COUNTS TO 

ZERO 

210 

C (1 ) 

= 0 



220 

C ( 2 ) 

= 0 




Next, read one vote (V). If V is the end-of-data flag (-1), quit counting and go 
print the results. Otherwise, count the vote. 


300 REM**READ A VOTE & CHECK FOR FLAG 
310 READ V 

320 IF V=-l THEN 510 


400 

410 

420 


REM**C0UNT VOTE & GO BACK 

C ( V ) = C ( V ) + 1- 

GOTO 310 


Look again at the crucial vote-counting statement: 


410 C(V) = C(V) + 1 


Remember, a vote (V) can be only one (1) or two (2). If V is 1, line 410 tells the 
computer to add one to the value of C(l). If V is 2, line 410 tells the computer to add 
one to the value of C(2). 



Subscripted Variables 311 


Eventually, the computer will read the end-of-data flag ( -1) and go to line 510. 


500 REM**PRINT THE RESULTS 
510 PR "SAM SM00THE: "; C(1) 

520 PR. "GABBY GRUFF: C(2) 

530 PR. "TOTAL VOTES: C(1) + C(2) 

540 END 


We entered the entire program, including the DATA statements, and ran it. This 
is what we saw. 


/SAM SMOOTHE: 
GABBY GRUFF: 
TOTAL VOTES: 


17 

15 

32 


Questions 


1. The first five votes in line 910 are 1, 1, 2, 2, and 2. Show the values of C(l) and 
C(2) after each of these votes has been read and added: 


1st vote 

C(l) 1 

] C(2) 

2nd vote 

C(1) 

] C(2) 

3rd vote 

C(l) I 

] C(2) 

4th vote 

C(l) 1 

] C(2) 

5th vote 

C(l) 1 

] C(2) 



2. Suppose the following poll is conducted: 


Which candidate will you vote for in the 
coming election? Circle the number to the 
left of your choice. 

1. Sam Smoothe 

2. Gabby Gruff 

3. No opinion 





312 ATARI BASIC, XL Edition 


The results of this poll are shown below: 


2 , 2 , 2 , 1 , 2 , 1 , 1 , 2 , 1 , 1 , 3 , 2 , 1,3 
2,1,1,3,1,3,2,2,1,1,3,2,1,3 
1 , 1 , 2 , 1 , 2 , 1,1 


Modify the VOTE COUNTING program to count these answers. A run 
should look like this: 


SAM SMOOTHE: 

17 

GABBY GRUFF: 

12 

NO OPINION: 

6 

TOTAL VOTES: 

35 


Answers 


1st vote C(l) 1 

C(2) 

0 

2nd vote C(l) 2 

C(2) 

0 

3rd vote C(l) 2 

C(2) 

1 1 

4th vote C(l) 2 

C(2) 

2 

5th vote C(l) 2 

C(2) 

3 

Make these additions and changes: 

110 DIM C(3) 

230 C(3 ) =0 


530 PR."NO OPINION:";C(3) 

540 PR."TOTAL VOTES:";C(1)+C(2)+C(3 ) 
550 END 

910 DATA2,2,2,1,2,1,1,2,1,1 ,3,2,1 ,3 
920 DATA2,1,1,3,1,3,2,2,1,1,3,2,1,3 
930 DATA1,1,2,1,2,1 ,1 ,-l 
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V 

TWINKLING STARS 


In a galaxy far away, where peace and love prevail, the stars are shaped like hearts. 
On a dark night, you can see a myriad of heart-shaped stars gently twinkling. 


100 REM**TWINKLING STARS 
1 10 DIM COL(100),ROW(100) 

120 GR. 0 
130 POKE 752,1 

200 REM**RAND0M STAR LOCATIONS 

210 NSTARS = 13 

220 FOR STAR=1 TO NSTARS 

230 COL(STAR) = I NT(40*RND(0)) 

240 ROW(STAR) - I NT(23*RND(0 ) ) 

250 NEXT STAR 


300 

310 

320 

400 

410 

420 

430 

440 


500 

510 

520 

530 

540 


REM**DARK SKY, BRIGHT STARS 
SE. 2,0,0 
SE. 1,0,14 

REM**PUT STARS IN THE SKY 
FOR STAR-1 TO NSTARS 

POS. COL ( STAR), R OW ( STAR) 

PR. 

NEXT STAR 

REM**TWINKLE A RANDOM STAR 
STAR - INT(NSTARS*RND(0))+l 
POS. COL(STAR),ROW(STAR): PR. " " 
GOSUB 910 

POS. COL(STAR),R0W(STAR): PR. " " 



600 REM**G0 TWINKLE ANOTHER 
610 GOTO 510 


900 REM**TI ME DELAY SUBROUTINE 
910 TD = 20 

920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 
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Enter and run the program. You should see 13 stars appear on a black screen. 
Each star is heart-shaped. To type a heart, hold down the CTRL key and press the 
comma (,) key. 

Each star has a screen position consisting of a column and row. Star #1 is a 
COL(l), ROW(l); star # 2 is at COL(2), ROW(2); star § 3 is at COL(3), ROW(3); and 
so on. We don't use COL(O) and ROW(O) in this program. 

Block 200 tells the computer to assign random screen positions to NSTARS stars. 
We set the value of NSTARS to 13 (line 210). You can change this to get more stars or 
fewer stars. 

Block 400 puts the stars in the sky. Remember to include the semicolon (;) at the 
end of line 430. 

Block 500 selects a random star (1 to NSTARS) and "twinkles" it. In line 510, the 
value of STAR will be an integer from 1 to NSTARS. Suppose STAR is 7. Then line 
520 tells the computer to put a space at COL(7), ROW(7), thus "turning off" star # 7. 
After a time delay, line 540 turns the star back on again. 

Change the time delay in line 910 to slow down or speed up the action. 

Instead of stars in random screen locations, perhaps you would like to put your 
favorite constellation on the screen: the Big Dipper? Draco? Orion? Or perhaps you 
want to invent your own constellation. You can do so with the following program: 

100 
110 
120 

200 
210 
220 
230 
240 
250 
260 

300 
310 
320 
330 

400 
410 
420 
430 
440 
450 


REM**TWINKLING STARS WITH INPUT 
DIM COL(100) ,ROW(100) 

GR. 0 

REM**GET STAR LOCATIONS 

PR. "HOW MANY STARS";: IN. NSTARS 

PR. 

FOR STAR=1 TO NSTARS 

PR. "STAR #";STAR;": COL,ROW";: IN. C,R 
COL(STAR) = C: ROW(STAR) = R 
NEXT STAR 


REM**DARK SKY, BRIGHT STARS 
SE. 2,0,0 
SE. 1,0,14 
POKE 752,1 

REM**P UT STARS IN THE SKY 
PR. CHR$(125 ) 

FOR STAR-1 TO NSTARS 
P0S. C( STAR), ROW ( STAR) 

PR. "*"; 

NEXT STAR 



(continued) 
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500 REM**TWINKLE THE STARS 
510 STAR = I NT(INSTARS*RND(0)) + l 
520 POS. COL(STAR),ROW(STAR): PR. " 
530 GOSUB 910 

540 POS. COL(STAR),ROW(STAR): PR. 
550 GOTO 510 

900 REM**TIME DELAY SUBROUTINE 
910 TD = 20 

920 FOR Z=1 TO TD: NEXT Z 
930 RETURN 


OK, let's try it. 

/HOW MANY STARS77 

STAR #1: COL,ROW?10,5 
STAR #2: COL,ROW?15,5 
STAR #3: COL,ROW?20,6 
STAR #4: COL,ROW?24,8 
STAR #5: COL,ROW?25,12 
STAR #6: COL,ROW?32,8 

STAR #7: COL,ROW?31,1 2 ■ - Before pressing RETURN. 

We entered the number of stars and the column and row for each star. When we 
pressed RETURN the last time, here is what we saw: 



( 
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Questions_ 

1. One time we ran the TWINKLING STARS program and counted only 12 

stars. How could this happen?_ 

2. How would you change the program to put 24 stars in the sky?_ 

3. In lines 230 and 240, what are the possible values of 

(a) COL(STAR)_ 

(b) ROW(STAR)_ 

Answers_ 

1. Since the star positions are selected at random, it is possible for two stars to 
have the same column and row. For example, perhaps star #4 and star #9 are 
both at column 17, row 8. You will see only one star. However, it is likely to 
twinkle twice as often as other stars. 

2. Change line 210 to: 210NSTARS = 24 

Line 110 DIMensions the arrays COL and ROW for up to 100 stars. 
Remember, the program doesn't use COL(O), ROW(O). 

3. (a) 0 to 39 (b) 0to22. 

We avoided row 23 because the computer might put a star at column 39, row 
23, thus causing the screen display to scroll up one line. 


ZRPPV ARTIST & FRIENDS M€AND€R 


Zappy Artist is back and has brought two friends. All three start near the center of 
the screen and meander, each going his or her own way. We introduce Zappy and 
two friends. 

100 REM**ZAPPY ARTIST & FRIENDS MEANDER 
110 DIM C0L(3),R0W(3) 

120 GR. 19 
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300 REM**ZAPPY & FRIENDS APPEAR 

310 FOR K=1 TO 3 

320 COL(K) = 17+K 

330 ROW(K) = 12 

340 COLOR K 

350 PLOT COL(K),ROW(K) 

360 NEXT K 

400 REM**THEY ALL MEANDER 

410 FOR K=1 TO 3 

420 GOSUB 610 

430 COLOR K 

440 PLOT COL(K),ROW(K) 

450 NEXT K 

500 REM**TIME DELAY, THEN MEANDER MORE 
510 TD = 100 

520 FOR Z=1 TO TD: NEXT Z 
530 GOTO 410 

600 REM**CHOOSE A DIRECTION SUBROUTINE 

610 WAY = INT(4*RN D(0))+l 

620 IF WAY = 1 THEN COL(K)=COL(K)+1 

630 IF WAY=2 THEN ROW(K)=ROW(K)+1 

640 IF WAY = 3 THEN COL(K) = COL(K)- 1 

650 IF WAY = 4 THEN ROW(K)=ROW(K)-1 

660 IF COL(K)>39 THEN COL(K)= 39 

670 IF ROW(K)>23 THEN ROW(K)= 23 

680 IF COL(K)<0 THEN COL(K)=0 

690 IF ROW(K)<0 THEN R0W(K)=0 

700 RETURN 

Questions_ 


1. Look at block 300. Artists 1, 2 and 3 appear. Where will each artist appear? 

(a) Artist #1 (K= 1) appears in column_, row_. 

(b) Artist #2 (K = 2) appears in column_, row_. 

(c) Artist #3 (K = 3) appears in column_, row_. 
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2. In the CHOOSE A DIRECTION SUBROUTINE, what is the function of lines 
660 through 690? 


3. Change the program so it works in GRAPHICS 21. 

Answers_ 

1. (a) COL(l) is 18 and ROW(l) is 12. 

(b) COL(2) is 19 and ROW(2) is 12. 

(c) COL(3) is 20 and ROW(3) is 12. 

2. These lines prevent any artist from trying to move "off the screen." Without 
these lines, COL(K) might become less than zero or greater than 39 or 
ROW(K) might become less than zero or greater than 23. Either case would 
cause the computer to stop with an error message. 

3. We'll leave this for you. Change lines 120, 320, 330, 660, 670, 680, and 690. 


DOUB16 SUBSCRIPTS 

So far you have used subscripted numeric variables with single subscripts. Each 
variable has one subscript. 

COL(K) TN(KEY-47) C(V) 

You can also use subscripted numeric variables with two subscripts. 

C(23) 

\/ 

Two subscripts, separated by a comma. 
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Suppose it is election time again. Jason, having learned more about poll-taking, 
is going door to door with the following questionnaire: 


Ql. Who will you vote for in the coming election? 

Circle the number to the left of your choice. 

1. Sam Smoothe 

2. Gabby Gruff 

3. No opinion 

Q2. What age group are you in? Circle the number to the left of your 
age group. 

1. Under 30 

2. 30 or over 


Since there are two questions, each reply consists of two numbers: the answer to 
question 1 and the answer to question 2. We will use V (for Vote) to represent the 
answer to question 1 and A (for Age) to represent the answer to question 2. 

V,A 

Answer to question 1 Answer to question 2 

The possible values of V are 1, 2 or 3. The possible values of A are 1 or 2. 

Here are some possible responses: 

Reply Meaning 

1.1 one vote for Sam Smoothe, voter is under 30 

1.2 one vote for Sam Smoothe, voter is 30 or over 
3,1 no opinion, voter is under 30 
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We want to write a program to summarize data for a two-question question¬ 
naire. We will use subscripted variables to count votes as shown: 


Sam Smoothe 


Gabby Gruff 


No Opinion 


C(l,l) 


C (2,1) 


C(3,l) 


Under 30 


30 or over 


C(l,2) 




C(l,2) 




C(3,2) 



Here are 29 replies to Jason's questionnaire. Remember, each reply is a pair of 
numbers and represents one vote. The first number of each pair is the answer to 
question 1. The second number of each pair is the answer to question 2. 


3,1 

2,2 

3,2 

2,2 

1,1 

1,2 

3,1 

2,1 

2,2 

U 

2,1 

2,1 

2,1 

3,1 

2,1 


1,2 

1,2 

2,1 

3,1 

3,2 

2,2 

U 

1,1 

1,2 

1,2 

2,1 

3,1 

3,1 

2,2 



Naturally, we want the computer to do the counting. 
Below is the beginning of our program: 

100 REM**V0TE COUNTING, 2 DIMENSIONAL 
110 DIM C(3,2) 

120 GR, 0 


Line 110 tells the computer to reserve memory space for the array C which has 
doubly-subscripted variables. The first subscript can be 0,1,2, or 3; the second 
subscript can be 0,1, or 2. 


DIM C(3,2) 


Maximum value 
of first subscript 



Maximum value 
of second subscript 
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Next, let's set all the counts to zero. We won't be using the zero subscripts, so 
here are three ways to write block 200. 


(l) 200 

REM**S 

ET 

COUNTS TO ZERO 

210 

C (1 ,1 ) 

— 

0 

220 

C(1,2) 

— 

0 

230 

C ( 2 , 1 ) 

— 

0 

240 

C ( 2,2 ) 

— 

O’ 

250 

C ( 3,1 ) 

— 

0 

260 

C ( 3,2 ) 

— 

0 


(2) 200 

REM* 

* 

SET 

COUNTS TO ZERO 

210 

FOR 

I 

= 1 

TO 3 

220 

C( 

I 

,1 ) 

= 0 

230 

C( 

I 

,2) 

= 0 

240 

NEXT 


I 



(3) 200 REM**SET COUNTS TO ZERO 
210 FOR 1=1 TO 3 
220 FOR J=1 TO 2 
230 C( I, J) = 0 

240 NEXT J 

250 NEXT I 

We prefer method (3) because it can easily be modified for different sizes of 
arrays (number of subscripts). 

The array is now set up. Let’s READ and count the votes: 


300 REM**READ & COUNT VOTES 
310 READ V,A: IF V=-l THEN 510 
320 C(V,A) = C(V,A) + 1: GOTO 310 

Well, that was easy! Line 310 tells the computer to read two numbers and check 
for an end-of-data flag. If the flag is detected (V is - 1), the computer goes to line 
510, which you will soon see. Otherwise, the computer uses the values of V and A 
to select the count and increase by one, then goes back and reads more data. 
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Since line 310 is a READ statement, some DATA statements must be given 
somewhere. Here they are, including two end-of-data flags: 


900 

REM**DAT A 

IN PAIRS: 





901 

REM**V0TE 

FOLLOWED 

BY AGE 

GROUP 


910 

DATA 3,1, 

2,2, 3,2, 

1,2, 

1,2, 

2, 

1 

920 

DATA 2,2, 

1,1, 1,2, 

3,1 , 

3,2, 

2, 

2 

930 

DATA 3,1, 

2,1, 2,2, 

1,1, 

1,1, 

1 , 

2 

940 

DATA 1,1, 

2,1, 2,1, 

1,2, 

2,1 , 

3, 

1 

950 

DATA 2,1, 

3,1 , 2,1 , 

3,1 , 

2,2, 

-1 

,-l 


Remember, each reply is a pair of numbers representing one vote. To emphasize 
this, we have typed a space after each reply (pair of values) in the DATA state¬ 
ments above. We need two end-of-data flags ( - 1, -1) because line 310 insists on 
reading two numbers (V, A). 

One thing left to do — block 500 to print the results. 

500 REM**SH0W THE RESULTS 
510 PR. CHR$(125) 

520 PR. "CANDIDATE","UNDER 30", "30 & UP" 

530 PR. 

540 PR. "SAM SM00THE",C(1,1),C(1,2) 

550 PR. "GABBY GRUFF",C(2,1),C(2,2) 

560 PR. "NO OPINION", C(3,1),C(3,2) 

570 PR. 

580 PR. "TOTAL VOTES", 

590 PR. C(I,1)+C(2,1)+C(3,1),C(1,2)+C(2,2)+C(3,2) 
999 END 

When we ran the program, this is what we saw: 


Column 2 


Col. 12 Col. 22 


Col. 32 


CANDIDATE 


UNDER 30 30 & UP 


SAM SMOOTHE 4 5 

GABBY GRUFF 7 5 

NO OPINION 6 2 


COLUMN TOTAL 


17 


12 
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"OK," we thought, "but we would also like the line total for each candidate to 
appear." However, we ran out of space. So let's use another nifty feature of ATARI 
BASIC: the TAB feature: 

• Clear the screen. As usual, the cursor appears in column 2. 

• Press the TAB key: The cursor moves to column 7. 

• Press the TAB key. The cursor moves to column 15. 

• Press the TAB key a few more times to see what happens. 

Here are the standard TAB positions: 

2 7 15 

You can use these TAB positions in a PRINT statement to space information on 
the screen. To include a TAB command: 

1) Use CHR$(127) to tell the computer to move the cursor to the next TAB 
position, or 

2) Use "►" as a string in the PRINT statement. To type ►, first press ESC, then 
TAB. 

Try this: 

Type: PR. CHR$(125);2; "► ";7; "► ";15; "► ";23 
This is what you will see: 

1 2 715 23 



READY 
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Before we apply the TAB feature to printing the results of the poll, let's write 
block 400 to compute some totals. But first, rewrite block 200 so all the members of 
array C are set to zero. 


200 REM**SET COUNTS TO ZERO 
210 FOR 1=0 TO 3 
220 FOR J=0 TO 2 
230 C(I,J) = 0 

240 NEXT J 
250 NEXT I 



In block 400, we are going to compute line totals for Sam and Gabby and NO 
OPINION. We will also compute column totals for UNDER 30 and 30 & UP, like 
this. 


CANDIDATE 

<30 

30 + 

TOTAL 

SAM SMOOTHE 

C(l,l) 

C( 1,2) 

C(1,0) 

GABBY GRUFF 

C(2,1) 

C(2,2) 

C(2,0) 

NO OPINION 

C(3,1) 

C(3,2) 

C(3,0] 

COLUMN TOTALS 

C(0,1) 

C(0,2) 

C(0,0) 


OK, here we go! 


400 

410 

420 

430 

440 

450 

460 


REM**C0MPUTE TOTALS 
FOR 1=1 TO 3 

C(1,0) = C(I,1 )+C( I ,2) - 

NEXT I 

FOR J=0 TO 2 

C(0,J) = C(1,J)+C(2,J)+C(3 
NEXT J 






IX) LO LO LO 
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Now we print all the information. Note how we use the TAB feature ("►") to 
position information on the screen. 


00 REM**PRINT THE RESULTS 
10 PR. CHR$(125 ) 

20 PR. "CANDIDATE""<30""30+" 
30 PR. 


TOTAL" 


540 PR. "SAM SM00THEC(1,1);;C(1,2);;C(1,0) 
550 PR. "GABBY GRUFFC(2,1C(2,2C(2,0) 
560 PR. "NO OPINION C(3,1C(3,2C(3,0) 
570 PR. 


580 PR. "COLUMN TOTAL" 


; C ( 0 , 1 ) ; 


; C ( 0,2 ) ; ; C ( 0,0 ) 


999 END 


One more thing. Rewrite line 310 as follows: 

310 READ V,A: IF V=-l THEN 410 

Having made all the above changes, we ran the program. 
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Remember, the TAB ("►") causes the cursor to move to the next tab position. In 
printing CANDIDATE, the cursor moves past the tab stop at column 7. So the first 
in line 520 causes the cursor to move to column 15. This also happens in lines 
540, 550, 560 and 580. 

Yes, you can clear the tab stops at columns 2, 7,15, 23, 31 and 39; and you can put 
tab stops where you want them. Look at the TAB key. 

Use CTRL Use SHIFT with this, 

with this. 


• To set a tab stop, position the cursor to the column where you want to set a 
tab stop, then hold down SHIFT and press SET. 

• To clear a tab stop, position the cursor to the column where you want to 
clear a tab stop, then hold down CTRL and press CLR. 

In a PRINT statement, you can TAB, SET a tab stop or CLR a tab stop. First type 
quotation marks, then press ESC, then press TAB or CTRL/CLR or SHIFT/SET, 
then type quotation marks. Or, you can use the CHR$ function. 

• To TAB: "► " or CHR$(127) 

• ToSETatab: " Q "orCHR$(159) 

• To CLR a tab: "QJ " or CHR$(158) 

The symbols for SET and CLR are inverse video arrows. 

Questions_ 

1. The following DIM statement tells the computer to reserve room in memory 
for the array C. 

DIM C(3,2) 

(a) How many subscripted variables are in this array?_ 

(b) Write the names of all variables in the array._ 
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2. What does the statement: C(V,A) = C(V,A) + 1 tell the computer to do? 


3. Explain how block 400 (COMPUTE TOTALS) works. 


Rnsuuers 


1. (a) 12 (b) C(0,0),C(0,l),C(0,2),C(l r 0),C(l,l),C(l,2),C(2 1 0),C(2,l),C(2,2), 

C(3,0), C(3,l), C(3,2). 

2. Add one to the value of C(V,A) and put the new result in C(V,A). 

3. Lines 410 through 430 compute C(I,0) = C(1,1) + C(1,2) for I equal to 1, 2 and 
3. These are the line totals for Sam Smoothe (1 = 1), Gabby Gruff (1 = 2) and 
NO OPINION (1 = 3). Lines 440 through 460 compute 
C(0J) = C(1 ,J) + C(2J) + C(3,J) for J = 0,1 and 2. These are the column totals 
for <30 (J = l), 30 + (J = 2) and TOTAL (J = 0). 


QUIZ SCOR€S 


In a small class of eight students, each student has taken four quizzes. Here are the 


scores: 

QUIZ 1 

QUIZ 2 

QUIZ 3 

QUIZ 4 

Student 1 

65 

57 

71 

75 

Student 2 

80 

90 

91 

88 

Student 3 

78 

82 

77 

86 

Student 4 

45 

38 

44 

46 

Student 5 

83 

82 

79 

85 

Student 6 

70 

68 

83 

59 

Student 7 

98 

92 

100 

97 

Student 8 

85 

73 

80 

77 


Use S to mean student and Q for Quiz. Then SCORE(S,Q) is the score of student S 
on Quiz Q. For example, SCORE(l,l) is 65; SCORE(4,2) is 38; SCORE (7,4) is 97. 
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Another class might have 30 students and 5 quizzes per student. Still another 
class might have 23 students and 7 quizzes per student, and so on. Let's begin a 
program to read scores for NS students and NQ quizzes per student. 


100 100 REM**QUIZ SCORES 
110 DIM SCORE(40,20) 

120 GR. 0 

Now let's read the array of scores. 

200 REM**READ NS STUDENTS, NQ QUIZZES 
210 READ NS,NQ 
220 FOR S=1 TO NS 
230 FOR Q=1 TO NQ 

240 READ SCORE: SC OR E(S,Q) = SCORE 

250 NEXT Q 
260 NEXT S 

900 REM**NS,NQ,AND SCORES 
910 DATA 8,4 
920 DATA 65,57,71 ,75 
930 DATA 80,90,91,88 
940 DATA 78,82,77,86 
950 DATA 45,38,44,46 
960 DATA 83,82,79,85 
970 DATA 70,68,83,59 
980 DATA 98,92,100,97 
990 DATA 85,73,80,77 


Now that we have the array in the computer, what shall we do with it? One thing 
someone might want is the average score for each student. Let's do it, beginning at 
line 400. We will put the average score in SCORE(S,0) for each student. 


400 REM**C0MPUTE STUDENT AVERAGES 

410 FOR S=1 TO NS 

420 TS = 0 

430 FOR Q=1 TO NQ 

440 TS = TS + SCORE(S,Q) 

450 NEXT Q 

460 SC OR E(S,0) = TS/NQ 
470 NEXT S 


(continued) 
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500 

REM* 

*PR INT 

AVE 

RAGES 

510 

PR. 

C H R $ ( 1 

25) 


520 

PR. 

"STUDE 

NT" , 

"AVERAGE" 

530 

P R o 




540 

FOR 

S=1 TO 

NS 


550 

PR 

. S,SC 

ORE ( 

S,0) 

560 

NEXT 

S 



570 

STOP 





Enter the program and run it. This is what you should see: 



If there were three or six quizzes, there might be several decimal places in the 
average. For example: 67.33333333. Here is a way to round a number to an integer 
or to one or two or three decimal places. 

• Round the value of X to the nearest integer. 


INT(X+ .5) 

• Round the value of X to the nearest tenth. 

INT(10*X + .5)/10 

• Round X to the nearest hundreth. 

INT(100*X + .5)/100 


The above works whenever the value of X is zero or positive. 
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EXPERIMENT! Try this program: 


1 0 

PR. 

C H R $(125) 





20 

PR. 

"NUMBER P 

LEASE";: 

IN 

. X 


30 

PR. 

"NEAREST 

INTEGER: 

II 

5 

I NT ( X+ . 

.5) 

40 

PR. 

"NEAREST 

TENTH:", 

INT(10*X+. 

.5)/10 

50 

PR. 

"NEAREST 

HUNDREDT 

H : 

",INT(100*X+.5)/100 

60 

PR. 

: GOTO 20 






Questions_ 

1. Write block 300 to print the array of scores as follows: 


STUDENT # 

QUIZ 1 

QUIZ 2 

QUIZ 3 

QUIZ 4 

1 

65 

57 

71 

75 

2 

80 

90 

91 

88 

3 

78 

82 

77 

86 

4 

45 

38 

44 

46 

5 

83 

82 

79 

85 

6 

70 

68 

83 

59 

7 

98 

92 

100 

97 

8 

85 

73 

80 

77 


2. Write blocks 600 and 700 to compute and print the average score for each 
quiz. For the data used in the program, the results should look like these: 

QUIZ # AVERAGE 

1 75.5 

2 72.75 

3 78.125 

4 76.625 
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Answers 


l. 


200 

210 

220 

230 

235 

240 

245 

250 

260 

265 

270 

275 

280 

285 

290 


REM**PRINT SCORES 
PR. C H R $(125) 

PR. "STUDENT 
FOR Q=1 TO NQ 
PR. "QUIZ " 

NEXT Q 
PR.: PR. 

FOR S=1 TO NS 
PR. S; 


II 


Q; 


r~ Print headings. 


FOR Q=1 TO NQ 

PR. V ; SCORE ( S , Q) ; 


Print student number 
and TAB. 


TAB and print score. 


NEXT Q 
NEXT S 
PR. 

STOP 


When you run the program, it will print the scores and stop at line 290. To move 
on to line 300, type CONT and press RETURN. 


2. We put the average for quiz Q in SCORE(0,Q). 


600 REM**C0MPUTE QUIZ AVERAGES 

610 FOR Q=1 TO NQ 

620 TQ = 0 

630 FOR S=1 TO NS 

640 TQ = TQ + SCORE(S,Q) 

650 NEXT S 

660 SCORE(0,Q) = TQ/NS 
670 NEXT Q 
680 STOP 

700 REM**PRI NT QUIZ AVERAGES 
710 PR. CHR$(125) 

720 PR. "QUIZ #","AVERAGE" 

7 2 0 PR 

740 FOR Q=1 TO NQ 
750 PR. Q,SCORE(0,Q) 

760 NEXT Q 
770 STOP 
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Now run the complete program, blocks 100, 200, 300, 400, 500, 600, 700 and 
900. First, the computer reads the scores, prints them on the screen and stops. 
Type CONT and press RETURN. The computer computes and prints the student 
averages, then stops. Type CONT and press RETURN. The computer computes 
and prints the quiz averages, then stops. 


S€LF-T€ST 


You are nearing the end of this adventure. You have acquired skill, knowledge, 
and experience points. So plunge into another Self-Test with confidence — noth¬ 
ing can go array. 


1 . 


Classify each variable as a numeric variable (NV), string variable (SV), 
subscripted numeric variable (SNV) or not a legal variable (OOPS). 


(a) X_ 

(c) $X_ 

(e) UP7_ 

(g) SEVENUP 


(b) X$_ 
(d) X(3) 
(f) 7UP _ 
(h) C(IJ) 


2. Write a single DIM statement to reserve memory space for the numeric array 
N with variables N(0) up to N(100), the array T with variables T(0,0) to T(7,5), 
and the string variable S$ with up to 50 characters. 

DIM 


3. Write the names of all subscripted variables that belong to the arrays defined 

by the following DIM statements. 

(a) DIM ARRAY(3) 

The variables are_ 

(b) DIM B( 1,2) 

The variables are_ 
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4. For you people with lazy fingers or no coins, we ask you to complete the 
following program to flip up to 100 "coins" and count the number of heads (H) 
and tails (T). Show each flip as H and space or T and space. After the coin has 
been flipped the desired number of times, show the total number of heads 
and tails. 


100 R EM**C 0 I N FLIPPER & COUNTER 
110 GR. 0 

120 DIM C0IN$(4),C(2),KY$( 1 ) 

130 C0IN$ = "H T " 

200 REM**TELL WHAT TO DO 

pin pr rumn 

220 PR! "HOW MANY FLIPS (1 TO 100)";:IN. NF 
230 IF NF<1 THEN 210 
240 IF NF>100 THEN 210 

300 REM**START COUNTS AT ZERO 

31 0 C (1 ) = 1 for heads (H) 


320 _ 2 for tails (T) 

400 REM**FLIP & COUNT 
410 PR. 

420 FOR FLIP=1 TO NF 
430 


440 


450 


460 NEXT FLIP 

500 R E M * * S H 0 W COUNTS 
510 PR.: PR. 

520 PR. C ( 1 ) ; " HEADS & 11 ; C ( 2 ) ; " TAILS" 

600 REM**TELL HOW TO DO AGAIN 
610 PR, 

620 PR. "TO DO AGAIN, PRESS 'RETURN'" 
630 IN. KY $: GOTO 210 
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5. Flip two coins. Let heads equal 0 and Tails equal 1. The outcome of a flip is 
the sum of these two numbers. Here are the possible outcomes: 

FIRST COIN SECOND COIN OUTCOME 



Write a program to flip two coins and count the outcomes. A RUN might look 
like this. 


HOW MANY FLIPS7100 

OUTCOME 

0 

1 

2 


FREQUENCY 

29 
47 
24 


Looks like these 
outcomes are not 
equally likely. 


FOR MORE FLIPS, PRESS ‘RETURN’? 


The FREQUENCY is the number of times the OUTCOME occured. 
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6. Modify your program for question 5 so the computer rolls two dice and 
counts how many times each possible outcome occurred. The results might 
look as follows: 



HOW MANY ROLLS71000 


OUTCOME 

FREQUENCY 

2 

26 

3 

59 

4 

87 

5 

106 

6 

139 

7 

170 

8 

132 

9 

112 

10 

78 

11 

60 

12 

31 


FOR MORE ROLLS, PRESS ‘RETURN’? ■ 


7. How about three dice? Aha! We use three dice to roll characteristics for 
fantasy adventure characters. The results of running your program for a 
large number of rolls (try 1000) should tell you something about the proba¬ 
bility, or likelihood, of rolling the various values from 3 to 18. 

8. Write a GRAPHICS 19 program to put random tiny rectangles of light in 
random places on the screen. Make them all orange. Then select one at 
random and make it orange or light green or dark blue, at random. Keep 
doing this — use our TWINKLING STARS program as the model for this 
program. 


336 ATARI BASIC, XL Edition 


9. In the game of Scrabble, each letter has a letter score as follows: 


A = 1 

CO 

II 

CD 

CO 

II 

O 

D = 2 

m 

ll 

II 

LL 

C\] 

II 

0 

II 

i = i 

J =8 

K = 5 

L = 1 

CO 

II 

N = 1 

0 = 1 

CO 

II 

CL 

o 

II 

o 

R = 1 

S = 1 

T = 1 

U = 1 

II 

> 

W = 4 

X 

II 

00 


Y = 4 Z = 10 


The Scrabble score of a word is the sum of the letter scores of the letters in the 
word. Write a program to compute the Scrabble score of a word, or any string 
of letters. Ignore anything that is not a letter. For example: 

YOUR WORD7CAT 
THE SCRABBLE SCORE IS 5 

YOUR WORD7ISNT 
THE SCRABBLE SCORE IS 4 

and so on. 



10. The array CHORD consists of 10 subscripted variables, each with two 
subscripts. Each variable holds the tone numbers for a two-note chord to be 
played using voices 0 and 1. 


CHORD #1 

0 

1 

2 

9 


VOICE 0 

CHORD(0,0| 

CHORD(1,0| 

CHORD(2,0| 

CHORD(9,0) 


VOICE 1 

CHORD(0,1) 

CHORD(l,l) 

CHORD(2,l) 

• 

CHORD(9,l) 


We want a program to do two things. First, use a FOR-NEXT loop with 
INPUT to get 20 tone numbers and store them in the array CHORD. Then let 
someone play chords by pressing the number keys 0 through 9. Press zero (0) 
to play chord # 0, press one (1) to play chord # 1, and soon. 
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Rnswers to Self-Test 


1. (a) X NV 

(c) SX OOPS 
(e) UP7 NV 
(g) SEVENUP NV 


(b) X$ SV 
(d) X(3) SNV 
(f) 7UP OOPS 
(h) C(I,J) SNV 


2. DIM N(100), T(7,5), S$(50) 

3. (a) ARRAY(O), ARRAY(l), ARRAY(2), and ARRAY(3) 
(b) B(0,0), B(0,1), B(0,2), B|1,0), B(l,l), and B(1,2) 

4. 31 0 C ( 1 ) = 0 
320 C(2 ) = 0 

430 R = I NT(2*RND(0 ) ) 

440 PR. C0IN$(2*R+1,2*R + 2 ) ; 
450 C(R +1 ) = C(R +1) + l 


Lines 430-450 can also be written as follows. 

430 R = INT(2*RND(0))+l 
440 PR. C0IN$(2*R-1 , 2*R) ; 
450 C ( R) - C(R) + 1 


Perhaps you have yet a different way! 


100 REM**FL I P TWO COINS & COUNT 
110 GR. 0 

120 DIM C(2 ),KY $(1) 

200 REM**TELL WHAT TO DO 
210 PR. CHR$(125) 

220 PR. "HOW MANY FLIPS";:IN. NF 
230 IF NF<1 THEN 210 

300 REM**START COUNTS AT ZERO 
310 C ( 0 ) = 0 
320 C(1) = 0 . 

330 C(2) = 0 


(continued) 
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400 REM**FL IP & COUNT 
410 FOR K=1 TO NF 

420 FC = INT(2*RND(0)) First coin 

430 SC = INT(2*RND(0) ) Second coin 

440 SUM = FC + SC 

450 C(SUM) = C(SUM) + 1 

460 NEXT K 

500 REM**SH0W COUNTS 
510 PR. 

520 PR. "OUTCOME","FREQUENCY" 

530 PR. 

540 FOR SUM = 0 TO 2 
550 PR. SUM, C ( SUM-) 

560 NEXT SUM 

600 REM**TELL HOW TO DO AGAIN 
610 PR. 

620 PR. "TO DO AGAIN, PRESS 'RETURN'"; 
630 IN. KY$: GOTO 210 


6,7. We leave these for you to ponder. 


8. 100 REM**STARS, CHANGING COLOR 

110 GR. 19 

120 DIM COL ( 100), ROW (100) 

200 REM**RANDOM STAR LOCATIONS 

210 NSTARS - 25 

220 FOR STAR-1 TO NSTARS 

230 COL(STAR) = I NT(40*RND(0 ) ) 

240 ROW(STAR) = I NT(24*RND(0 ) ) 

250 NEXT STAR 

400 REM**PUT NSTARS IN SKY 
400 FOR STAR-1 TO NSTARS 
420 COLOR 1 

430 PLOT COL(STAR),ROW( STAR) 
440 NEXT STAR 


(continued) 
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500 REM**RANDOM STAR, RANDOM COLOR 
510 STAR = I NT(NSTARS*RND(0))+1 
520 COLOR INT(3*RND(0))+l 
530 PLOT COL(STAR),R0W(STAR) 

600 REM**GO CHANGE ANOTHER 
610 GOTO 510 


9. 100 REM**SCRABBl.E SCORES 

110 GR. 0 

120 DIM LS(26),W0RD$(50),L$( 1 ) 

200 REM**READ LETTER SCORES INTO LS 
210 FOR K=1 TO 26 
220 READ LS: LS(K) = LS 
230 NEXT K 

240 DATA 1,3,3,2,1,4,2,4,1,8,5,1 ,3 
250 DATA 1,1,3,10,1,1,1,1,4,4,8,4,10 

300 REM**ASK FOR A WORD 

310 PR "YOUR WORD";: IN. WORDS 

400 REM**START WORD SCORE AT ZERO 
410 WS = 0 

500 REM**COMP UTE WORD SCORE 
510 LW = LEN(WORDS) 

520 FOR L = 1 TO LW 
530 L $ = WOR D$(L,L) 

540 IF L$<"A" THEN 580 
550 IF L$>"Z" THEN 580 
560 K = ASC(L$ ) - 64 
570 WS - WS + LS(K) 

580 NEXT L 

600 REM**PRI NT SCORE & GO AROUND 
610 PR. "THE SCRABBLE SCORE IS ";WS 
620 PR.: GOTO 310 
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10. 100 REM**KEYBOARD CHORDS 
110 GR. 0 

120 DIM CHORD(10,1 ) 


200 REM**TELL WHAT TO DO 
210 PR. "FOR EACH CHORD, TYPE TWO TONE" 
220 PR. "NUMBERS, SEPARATED BY A COMMA," 
230 PR. "THEN PRESS 1 RETURN'." 


300 

310 

320 

330 

340 

350 

360 

400 

410 

420 


REM**GET THE TONE NUMBERS 
PR. 

FOR C=0 TO 9 

PR. "CHORD #";C;:IN. TNO,TN1 
CHORD(C,0) = TNO 
CHORD(C,1) - TNI 
NEXT C 


When you run the 
program, you ora 
friend will enter 
the tone numbers. 


REM**TELL HOW TO PLAY 
PR. 

PR. "TO PLAY, PRESS A NUMBER KEY." 


-4DD ( arW- 


500 REM**OPEN CHANNEL TO KEYBOARD 
510 OPEN #1,4,0,"K:" 

600 REM**GET & VERIFY A KEY 
610 GET #1, KEY 

620 IF KEY<48 OR KEY>56 THEN 610 

700 REM**PLAY A CHORD & GO FOR MORE 

710 C = KEY - 47 

720 FOR L = 10 TO 0 STEP -1 

730 SO. 0,CHORD(C,0),10,L 

740 SO. 1,CHORD(C,1 ) ,10,L 

750 TD = 10 

760 FOR 1 -1 TO TD: NEXT Z 
770 NEXT L 
780 GOTO 610 


You can easily modify this program to play chords with three voices. 






Chapter 

Twelve 




Look backwards — you have learned how to read and understand simple pro¬ 
grams in ATARI BASIC. In the first 11 chapters of this beginner's book, we have 
shown you programs using the following ATARI BASIC keywords. 


ABS 

GOSUB 

AND 

GOTO 

ASC 

GRAPHICS 

CHRS 

IF 

COLOR 

INPUT 

CONT 

INT 

DATA 

LEN 

DIM 

LET 

DRAWTO 

LIST 

END 

NEW 

FOR 

NEXT 

GET 

ON 


OPEN 

SETCOLOR 

OR 

SGN 

PLOT 

SOUND 

POKE 

STEP 

POSITION 

STOP 

PRINT 

THEN 

READ 

REM 

RESTORE 

RETURN 

RND 

RUN 

VAL 


Use the Index to find places where the above keywords are used. 
We used an implied LET to assign values to variables. For example: 


ROW = 0 

P$ = "POSITIVE" 

These can also be written using an explicit LET. 

LET ROW = 0 
LET P$ = "POSITIVE" 
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Look forward — there is more to learn. There is more to learn about the 
keywords we covered in this book. There are also more keywords for you to learn. 
Here is a list of ATARI BASIC keywords we did not discuss in Chapters one 
through 11. 


ADR 

DEG 

NOTE 

STATUS 

ATN 

DOS 

PEEK 

STICK 

BYE 

ENTER 

POINT 

STRIG 

CLOAD 

EXP 

POP 

STR$ 

CLOG 

FRE 

PTRIG 

TRAP 

CLOSE 

LOAD 

PUT 

USR 

CLR 

LOCATE 

RAD 

XIO 

COM 

LOG 

SAVE 


COS 

LPRINT 

SIN 


CSAVE 

NOT 

SQR 



Browse through the Appendices. You will find information on some, but not all, 
of the above keywords. Also consult the reference manual that came with your 
ATARI computer: 

ATARI4001900 BASIC REFERENCE MANUAL. 

ATARI part number C015307 Rev. 1 

ATARI BASIC Reference Guide for Experienced Programmers. 

ATARI part number C061570 Rev. A 

As perennial beginners, we find the ATARI reference manuals difficult to 
understand. Fortunately, however, we found a book that has told us almost 
everything we want to know about the ATARI computers. Here is a book we wish 
we had written: 


Poole, Lon with Martin McNiff & Steven Cook. Your ATARI Computer. 
Published by Osborne/McGraw-Hill, 630 Bancroft Way, Berkeley, CA 94710. 

Also look in Appendix H for a list of books, magazines, and other things to help 
you move onward. Good luck. Enjoy your journey. 

The End... 


of the beginning. 



ATARI computer programs can be permanently stored on tape cassettes. You can 
buy professionally written programs or you can record your own programs on 
cassettes. You can also find program listings in magazines, type them into your 
computer, and save them on cassettes. You can use the ATARI model 410 or 
ATARI Model 1010 Program recorder to load cassette programs into the computer's 
memory or to save a program already in memory on a blank cassette. 



ATARI 410 Program Recorder ATARI 1010 Program Recorder 

An ATARI Program recorder has two cables attached to it: a power cord and a 
cable that plugs into an ATARI computer. 
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Plug this cable into the computer outlet labelled PERIPHERAL. This outlet is on 
the right side of an ATARI 400 or 800. It is on the back edge of an ATARI 600XL or 
800XL, near the right side as you face the computer. 

Of course, also plug the power cord into a 110-volt electrical outlet. 

The program recorder has six keys you will use to load or save programs. 


REC 

PLAY 

REWIND 

ADVANCE 

STOP/EJ 

PAUSE 

o 


o 


o 

. 

o 


o 


o 


All keys lock down except the STOP/EJ. (STOP/EJECT) key. To release a key, press 
the STOP/EJ. key. Oops! That doesn't work for PAUSE. If the PAUSE key is down, 
press it and it will pop up. You can also release most other keys by pressing 
another key. Try it. 

The program recorder has a tape counter to help you position the tape where 
you want it. Press the little button to set it to 000. 


SIEVING A PROGRAM ON TAP€ (CSAV€) 

Suppose there is a program in the computer's memory and you want to record it on 

a cassette. Here's how: 

1. Put a blank cassette in the program recorder. 

2. REWIND the tape. 

3. Set the tape counter to zero. 

4. Use the ADVANCE key to position the tape to the number of your choice in 
the tape counter. Later you will use this number to help you find the program 
on the tape. 

5. On the keyboard type CSAVE and press the RETURN key. 

6. The computer will beep twice. Press the REC and PLAY keys together so that 
they both stay down. 

7. Now press the computer's RETURN key. The tape starts moving. The com¬ 
puter is recording a program from its memory. 
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You can listen in. Turn up the volume on the TV. First you hear a steady high- 
pitched tone, then a burst of different sound. Each time this happens, you know 
the computer has recorded a piece of the program. When it is finished, the sound 
stops and the tape no longer moves. 

8. Press the STOP key, REWIND the tape and remove it from the program 
recorder. 


You may wish to make two or more copies of the program on the same tape. In this 
case, don't press STOP and remove the program. Instead, advance the tape a little 
and note the number in the tape counter — write it down. Then record another 
copy of the program on the tape. 

LORDING R PROGRAM FROM TRP€ (CLORD) 

Use CLOAD to load a program that was recorded using the CSAVE command 
described above. Here's how: 

1. Put the program cassette in the program recorder. 

2. REWIND the tape. 

3. Set the tape counter to zero. 

4. Use the ADVANCE key to position the tape to the beginning of the program 
on the tape. If you don't know the tape counter number, try starting from 000 
and see if that works. 

5. On the keyboard, type CLOAD and press the RETURN key. 

6. The computer beeps. Press only the PLAY key so that it stays down. 

7. On the keyboard, press the RETURN key. The tape starts moving. The 
computer is loading a program from tape into its memory. 


You can listen in. Turn up the volume on the TV. You hear several seconds of 
silence, then a burst of sound. Each burst of sound tells you the computer has 
loaded a piece of the program. When the entire program has been loaded into 
memory, the sound stops and the tape stops moving. 

8. Press the STOP key on the program recorder, REWIND the tape and remove 
it from the recorder. 
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The program is in the computer's memory. You can type RUN to run it, LIST to list 
it on the screen, CSAVE it on another tape, or do whatever you want to do. 


NOTE: The CLOAD command first erases any program already in 
memory, then loads the program from tape. 


SnV€ AND LOAD 

CSAVE and CLOAD work only with the program recorder. Two other commands, 
SAVE and LOAD, work with the program recorder and also with other peripheral 
devices. To save a program on a tape cassette, 

Type: SAVE "C: " and press RETURN. 

To load a program saved with SAVE, you can use either CLOAD of LOAD. 

Type: CLOAD and press RETURN, 

or type: LOAD "C: " and press RETURN. 

The LOAD command erases any old program in memory before reading in the 
new program. 

LIST AND €NT€A 

Sometimes you may want to store only part of a program or load only a part of a 
program. You can do this with the LIST and ENTER commands. 

To record the entire program in the computer's memory, 


Type: LIST "C: " and press RETURN 

You can record part of a program by specifying the first and last line numbers. For 
example, suppose you want to record the part of a program from line number 300 
to line number 599. 


Type LIST "C: ",300,599 and press RETURN. 
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If you record a program using LIST, you must use ENTER to get it back into the 
computer's memory. 

Type ENTER "C:" and press RETURN. 


IMPORTANT NOTICE: When you use the ENTER command, the 
computer does not erase the program already in memory. Instead, it 
merges the program on tape with the program in memory. 


You can use LIST to record subroutines, DATA statements, and other things you 
might use in more than one program. Then use ENTER to add them to the program 
already in memory. 




Use the following symbols to tell the ATARI computer to do arithmetic: 


Operation 

Symbol 

Example 

Result 

Addition 

+ 

3 + 4 

7 

Subtraction 

— 

3-4 

-1 

Multiplication 

★ 

3*4 

12 

Division 

/ 

3/4 

.75 


If an expression has two or more operations, they are done in the same order used 
in pencil-and-paper arithmetic. Here are some examples: 

Additions and subtractions are done in left to right order. 



2 + 3 + 4 = 9 2 + 3 — 4 = 1 

Multiplications and divisions are done left to right. 



2*3*4 = 24 2*3/4 = 1.5 



2/3*4 = 2.66666666 
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Multiplications and divisions are done before additions or subtractions. 

99 

2*3 + 4 = 10 2 + 3*4 = 14 

99 

2.75 2-3/4 = 1.25 


2*3 4-4*5 = 26 2 + 3/44-5 = 7.75 

Operations within parentheses are performed first. If parentheses are nested (one 
pair within another pair), operations within the innermost pair are performed 
first, then evaluation proceeds to the next pair out. 

© © 

i i 

2 *(3 + 4) = 2*7 = 14 

©© 

i I 

2/(3 *4) = 2/12 = 0.1666666666 

© © © 

(2 + 3)*(4 + 5) = 5*9 = 45 

©©©© 

I I I I 

2*(3 + 4*(5 + 6)) = 2*(3 + 4*11) 

= 2* (3 + 44) 

= 2*47 
= 94 


Numbers larger than 9999999999 or smaller than .01 are printed in floating point. 
Floating point notation is similar to scientific notation used in math, science, and 
engineering books. 


Number 

Scientific 

Notation 

Floating Point 

Notation 

10000000000 

1 x 10 10 

1E+ 10 

20000000000 

2 x 10 10 

2E+10 

.000000001 

1 x 10- 9 

IE — 09 

.0000000002 

2 x 10' 10 

2E-10 


Floating point notation is a compact way of expressing very large or quite small 
numbers. In floating point, a number is represented by a mantissa and an exponent, 
separated by the letter E. 
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The number of miles in a light year: 


5.865696E + 12 

l_l i-1 

I I 

mantissa exponent 

Time in seconds for light to travel one inch: 

8.485391549E — 11 

1 - 1 - 11 — 

mantissa exponent 

EXPERIMENT! Use this program: 

10 GR.O 

20 PR."NUMBER,PLEASE" IN.N 
30 PR.N 
40 PR. 

50 G0T020 

Try these numbers: 

Volume of the Earth in bushels: 31708000000000000000000 

Speed of a snail in kilometers per second: .000015 

Mass of the hydrogen atom in kilograms: .00000000000000000000167 

Mass of the Earth in kilograms: 598000000000000000000000 

Your Turn. Call the Reference desk at your local library and get these numbers. 
Diameter of a gnat's eyelash in miles. 

Volume of Jupiter in thimblefuls (or is that "thimbles full?"). 








Using the SOUND statement, you can tell the ATARI computer to make sounds 
and play music. The computer has four independent voices, so it can make up to 
four different sounds at the same time. You can use these four voices to create 
harmony, dissonance, sound effects, and just plain old noise. 

SOUND 

Use the SOUND statement to tell the computer to make a sound. 

SOUND_,_, , T 



For example: SOUND 0,121,10,10 

PITCH 

The second number in a SOUND statement sets the pitch, or frequency, of the 
sound. Small numbers produce high tones and large numbers produce low tones. 
Zero (0) produces no tone. 

DISTORTION 

The third number determines the type of distortion in the sound. Use 10 or 14 to 
get undistorted sound, "pure tones." Other even numbers produce different kinds 
of distortion (noise) in the sound. In most cases, odd numbers (1,3,5,7,9,11,13,15) 
turn off the sound. 
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Values of distortion other than 10 or 14 may change the pitch of the sound. Try 
these. 

SO. 0,121,10,10 Pure tone, Middle C. 

SO. 0,121,12,10 Lower, distorted tone. 

LOUDNESS 

The fourth number controls the loudness for a given setting of the volume control 
on the TV. Loudness ranges from 0 (silence) to 15 (loudest sound). 

TURNING OFF THE SOUND 

To turn off a single voice, use a SOUND statement with zero loudness. We usually 
also set pitch and distortion to zero. 

Turn off voice 0: SOUND 0,0,0,0 
Turn off voice 1: SOUND 1,0,0,0 
Turn off voice 2: SOUND 2,0,0,0 
Turn off voice 3: SOUND 3,0,0,0 

An END statement turns off all four voices. Pressing SYSTEM RESET also turns 
off all four voices. 

MUSICAL NOTES 

The computer can produce pure tones (distortion 10 or 14) as shown by the table on 
page 353. This table relates selected pitch values to notes on the musical staff and 
keys on the piano. These relationships may not be true for distortion other than 10 
or 14. 
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Appendix 

D 



You may copy the screen maps in this appendix for your own personal use. The 
screen is your palette; the screen is your page. Here are worksheets for designing 
stuff to appear on the screen: 
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Graphics Mode 0 
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Graphics Model with Text Window 
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Graphics Mode 2 with Text Window 
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Graphics Mode 3 with Text Window 
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Graphics Mode 4 or 5 with Text Window 
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Graphics Mode 6 or 7 
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CT) 




































Graphics Mode 8 


Appendix D 361 

































































































































































































(GTIA) 


362 ATARI BASIC, XL Edition 
















































































































































































































































































































































































































































































































































































Most computers use a standard code called ASCII, which means "American 
Standard Code for Information Interchange." ATARI computers use a similar code 
called ATASCII, which means "ATari ASCII." 

An ATASCII code is a number in the range 0 to 255. An ATASCII code represents 
a keyboard character or control function. Some ATASCII codes are generated by 
pressing two or more keys simultaneously or in a certain order. Conversely, you 
can produce the ATASCII character or control feature by using the ATASCII code 
in a CHR$ function. 

For eachATASCII code, the following table shows the printed character (if any), 
and the key or keys you press to send the code into the computer. In the table: 


CTRL C 
ESC \ CTRL + 
SHIFT 4 
CTRL, 


ATARI Key 


means hold down CTRL and press C. 

means press ESC, then hold down CTRL and press + . 

means hold down SHIFT and press 4. 

means press A to get inverse video*, then hold down CTRL 
and press the comma key. 


If we show letters in upper case, make sure the computer is in CAPS mode; if we 
show letters in lower case, make sure the computer is in LOWR mode. 

* On the 600XL or 800XL, press 



ATASCII 

Code 

0 

1 

2 

3 


ATASCII 

Character 



Key(s) 


CTRL , 
CTRL A 
CTRL B 
CTRL C 
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ATASCII 

Code 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


ATASCII 

Character 



Key(s) 

CTRLD 
CTRLE 
CTRL F 
CTRL G 
CTRL H 
CTRL I 
CTRL J 
CTRL K 
CTRL L 
CTRL M 
CTRL N 
CTRLO 
CTRL P 
CTRL Q 
CTRL R 
CTRLS 
CTRL T 
CTRL U 
CTRL V 
CTRL W 
CTRL X 
CTRL Y 
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ATASCII 

Code 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 


ATASCII 

Character 



! 

■ 


# 

$ 

% 

& 


< 

> 




Key(s) 

CTRL Z 

ESC \ ESC 

ESC \ CTRL - 

ESC \ CTRL = 

ESC \ CTRL + 

ESC \ CTRL * 

Space key 

SHIFT 1 

SHIFT 2 

SHIFT 3 

SHIFT 4 

SHIFT 5 

SHIFT 6 

SHIFT 7 

SHIFT 8 

SHIFT 9 
* 

+ 


/ 


47 


0 


Reprinted courtesy of Atari. 
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ATASCII 

Code 

ATASCII 

Character 

Key(s) 

48 

0 

0 

49 

1 

1 

50 

2 

2 

51 

3 

3 

52 

4 

4 

53 

5 

5 

54 

6 

6 

55 

7 

7 

56 

8 

8 

57 

9 

9 

58 

■ 

■ 

SHIFT ; 

59 

■ 

5 

t 

60 

< 

< 

61 

— 

— 

62 

> 

> 

63 

9 

■ 

SHIFT / 

64 

@ 

SHIFT 8 

65 

A 

A 

66 

B 

B 

67 

C 

C 

68 

D 

D 

69 

E 

E 



Appendix E 367 


ATASCII 

Code 

ATASCII 

Character 

Key(s) 

70 

F 

F 

71 

G 

G 

72 

H 

H 

73 

1 

I 

74 

J 

J 

75 

K 

K 

76 

L 

L 

77 

M 

M 

78 

N 

N 

79 

0 

O 

80 

P 

P 

81 

Q 

Q 

82 

R 

R 

83 

S 

S 

84 

T 

T 

85 

U 

U 

86 

V 

V 

87 

w 

W 

88 

X 

X 

89 

Y 

Y 

90 

z 

Z 

91 

[ 

SHIFT ; 


Reprinted courtesy of Atari. 
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ATASCII 

Code 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 
113 


ATASCII 

Character 





Key(s) 

SHIFT , 

SHIFT + 

SHIFT * 

SHIFT - 

CTRL. 

a 

b 

c 

d 

e 

f 

g 

h 

i 

J 

k 

1 

m 


o 

P 

q 
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ATASCII 

Code 


ATASCII 

Character 



Key(s) 

r 

s 

t 

u 

V 

w 

X 

y 

z 

CTRL; 

SHIFT = 

ESC \ CTRL < 

ESC \BACK S 
ESC \ TAB 

ATARI Key CTRL, 

ATARI Key CTRL A 

ATARI Key CTRL B 

ATARI Key CTRL C 

ATARI Key ] CTRLD 

ATARI Key CTRLE 

ATARI Key CTRL F 

ATARI Key CTRL G 

Reprinted courtesy of Atari. 
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ATASCII 

Code 

ATASCII 

Character 

Key(s) 

136 

0 

ATARI Key 

CTRL H 

137 

0 

ATARI Key 

CTRLI 

138 

a 

ATARI Key 

CTRL J 

139 

ti 

ATARI Key 

CTRL K 

140 

a 

ATARI Key 

CTRL L 

141 

s 

ATARI Key 

CTRL M 

142 

B 

ATARI Key 

CTRL N 

143 

a 

Q 

ATARI Key 

CTRLO 

144 

ATARI Key 

CTRL P 

145 

O 

ATARI Key 

CTRL Q 

146 

o 

ATARI Key 

CTRL R 

147 

Q 

ATARI Key 

CTRLS 

148 

o 

ATARI Key 

CTRLT 

149 

O 

ATARI Key 

CTRL U 

150 

« 

ATARI Key 

CTRL V 

151 

a 

ATARI Key 

CTRL W 

152 

a 

ATARI Key 

CTRL X 

153 

a 

ATARI Key 

CTRL Y 

154 

o 

ATARI Key 

CTRL Z 

155 

EOL 

RETURN 

156 

o 

ESC \ SHIFT BACKS 

157 

a 

ESC \ SHIFT > 
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ATASCII 

Code 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 


ATASCII 

Character 

o 

o 

D 


£ 

I 

% 

& 


B 

n 

n 

B 


+ 



Key(s 


ESC \ CTRL TAB 
ESC \ SHIFT TAB 


ATARI Key SPACE BAR 


ATARI Key ( SHIFT 1 


ATARI Key 


SHIFT 2 


ATARI Key SHIFT 3 


ATARI Key SHIFT 4 


ATARI Key 


SHIFT 5 


ATARI Key 


SHIFT 6 


ATARI Key SHIFT 7 


ATARI Key SHIFT 9 


ATARI Key | SHIFT 0 


ATARI Key 


ATARI Key + 


ATARI Key 


ATARI Key 


ATARI Key 


ATARI Key / 


ATARI Key 


0 


ATARI Key 


ATARI Key 2 


ATARI Key 3 


Reprinted courtesy of Atari. 
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ATASCII 

Code 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
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ATASCII 

Code 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 


ATASCII 

Character 


v 

w 

X 

y. 

z 


o 


I 




Key(s) 

ATARI Key V 
ATARI Key W 
ATARI Key X 
ATARI Key y 
ATARI Key Z 

ATARI Key CTRL ; 

ATARI Key CTRL = 

ESC \ CTRL 2 

ATARI Key ESC \ CTRL BACK S 
ATARI Key ESC \ CTRL > 


Reprinted courtesy of Atari. 
















The following words are reserved words in ATARI BASIC. A reserved word may 
not be used as a variable or as the beginning of a variable. For example, you may 
not use VAL or VALUE as a variable because VAL is a reserved word. 


ABS 

DRAWTO 

NEW 

RESTORE 

ADR 

END 

NEXT 

RETURN 

AND 

ENTER 

NOT 

RND 

ASC 

EXP 

NOTE 

RUN 

ATN 

FOR 

ON 

SAVE 

BYE 

FRE 

OPEN 

SETCOLOR 

CLOAD 

GET 

OR 

SGN 

CHR$ 

GOSUB 

PADDLE 

SIN 

CLOG 

GOTO 

PEEK 

SOUND 

CLOSE 

GRAPHICS 

PLOT 

SQR 

CLR 

IF 

POINT 

STATUS 

COLOR 

INPUT 

POKE 

STEP 

COM 

INT 

POP 

STICK 

CONT 

LEN 

POSITION 

STRIG 

COS 

LET 

PRINT 

STOP 

CSAVE 

LIST 

PTRIG 

STRS 

DATA 

LOAD 

PUT 

THEN 

DEG 

LOCATE 

RAD 

TO 

DIM 

LOG 

READ 

TRAP 

DOS 

LPRINT 

REM 

USR 


VAL 

XIO 
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These words are the keywords used in 

writing programs and telling the computer 

things to do. 

Some of the keywords have abbreviations 

you can use to more 

quickly type them into the computer 
tions. 

. The following keywords have abbrevia- 

KEYWORD 

ABBREVIATION 

KEYWORD 

ABBREVIATION 

BYE 

B. 

NEXT 

N. 

CLOAD 

CLOA. 

NOTE 

NO. 

CLOSE 

CL. 

OPEN 

0. 

COLOR 

C. 

PLOT 

PL. 

CONT 

CON. 

POINT 

P. 

DATA 

D. 

POKE 

POK. 

DEG 

DE. 

POSITION 

POS. 

DIM 

DI. 

PRINT 

PR. OR? 

DOS 

DO. 

PUT 

PU. 

DRAWTO 

DR. 

READ 

REA. 

ENTER 

E. 

REM 

R. or . SPACE 

FOR 

F. 

RESTORE 

RES. 

GET 

GE. 

RETURN 

RET. 

GOSUB 

GOS. 

RUN 

RU. 

GOTO 

G. 

SAVE 

S. 

GRAPHICS 

GR. 

SETCOLOR 

SE. 

INPUT 

Lor IN. 

SOUND 

SO. 

LET 

LE. 

STATUS 

ST. 

LIST 

L. 

STOP 

STO. 

LOAD 

LO. 

TRAP 

T. 

LOCATE 

LPRINT 

LOC. 

LP. 

XIO 

X. 


If you LIST a program, all keywords are spelled out in full, even though you 
typed the abbreviations. 







ERROR 

CODE NO. WHAT IT MEANS 


2 You ran out of memory. This may happen when you enter a 
program line or DIM a string variable or an array. 

3 Value error. A value is outside its legal range. 

4 Too many variables. A maximum of 128 different variable names 
is allowed. 

5 String length error. This happens if you try to store a string longer 
than specified in a DIM statement. 

6 Out of data error. A READ statement is executed after all items in 
DATA statements have already been read. 

7 Number greater then 32767 or less than 0. 

8 INPUT statement error. Attempt to enter a non-numeric value for 
a numeric variable. 

9 DIM error. DIM size is greater than 32767 or a subscript is outside 
the range specified in a DIM statement or a string or subscripted 
variable has not been DIMensioned or a string or array is DIMen- 
sioned a second time. 

10 Argument stack overflow. Too many GOSUBs or too large an 
expression. 

11 Floating point overflow or underflow. The result of an operation 
is greater than IE 98 (overflow) or less than IE-99 (underflow). 
This happens when you try to divide by zero. 

12 Line not found. A GOSUB, GOTO, or IF-THEN statement refer¬ 
ences a non-existent line number. 
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13 NEXT without FOR. The computer encountered a NEXT state¬ 
ment without a matching FOR statement. 

14 Line too long. The statement is too long or too complex. 

15 GOSUB or FOR line missing. A NEXT or RETURN statement was 
encountered, but the corresponding FOR or GOSUB had been 
deleted since the last RUN. (Nevermind — we don't understand 
this one either). 

16 RETURN without GOSUB. 

17 Garbage error. Might be a bad memory chip, but can also occur 
from unwise use of POKE. Type NEW and re-enter the program or 
turn the computer off and on, then re-enter the program. 

18 Invalid string character. String does not start with a valid char¬ 
acter or string used in a VAL function is not a numeric string. 

The following are INPUT or OUTPUT errors that might happen during the use 
of printers, disk drives, or other accessory devices. For more information, consult 
the reference manuals that come with such devices. 

19 LOAD program too long. 

20 Device number larger than 7 or equal to 0. 

21 LOAD file error. 

128 BREAK abort. User hit BREAK key during input or output opera¬ 
tion. 

129 IOCB already open. (Input/Output Control Block) 

130 Nonexistent device specified. 

131 IOCB write only. 

132 Invalid command. 

133 Device or file not open. 

134 Bad IOCB number. 

135 IOCB read only error. 

136 EOF (End of File) has been reached. 

137 Truncated record. 

138 Device timeout. 

139 Device NAK 



380 ATARI BASIC, XL Edition 


140 Serial bus input framing error. 

141 Cursor out of range for this mode. 

142 Serial bus data frame overrun. 

143 Serial bus data frame checksum error. 

144 Device done error. 

145 Read after write error. 

146 Function not implemented. 

147 Not enough RAM memory for selected graphics mode. 

160 Drive number error. 

161 Too many open files. 

162 Disk full. 

163 Unrecoverable system data I/O error. 

164 File number mismatch. 

165 File name error. 

166 POINT data length error. 

167 File locked. 

168 Command invalid. 

169 Directory full. 

170 File not found. 

171 POINT invalid. 



= App s ndii = Look Here 



We hope you looked here soon after you first cracked this book. You can teach 
yourself how to use, program, and enjoy computers better, and have more fun, if 
you use more than one source of information and inspiration. As you progress 
from beginner to intermediate to advanced and perhaps beyond, try some of these. 

BOOKS 

• Moore, Herb, Judy Lower, and Bob Albrecht, ATARI SOUND AND 
GRAPHICS. (John Wiley and Sons, Inc., 655 Third Avenue, New York, 
NY 10158.) A beginner's book devoted entirely to sound and graphics. 
Herb Moore is a creative musician with a flair for writing. 

• Kohl, Herb, Ted Kahn, and Len Lindsay, ATARI GAMES AND RECREA¬ 
TIONS. (Reston Publishing Co., 11480 Sunset Hills Road, Reston, VA 
22090) Beginners can use this book to learn how to design and program 
computer games in ATARI BASIC. 

• Poole, Lou, Martin McNiff, and Steven Cook, YOUR ATARI COMPUTER: 
A GUIDE TO ATARI 4001800 PERSONAL COMPUTERS. 
(Osborne/McGraw-Hill, 630 Bancroft Way, Berkeley, CA 94710.) This is 
the most complete source of information about ATARI computers. Use it 
as your reference guide after you finish working and playing your way 
through ATARI BASIC. 

MAGAZINES 

Here are two monthly magazines devoted entirely to ATARI computers: 

• A.N.A.L.O.G., 565 Main Street, Cherry Valley, MA 01611. Phone: (617) 
892-3488. 

• ANTIC, 524 Second Street, San Francisco, CA 94107. Phone: (415) 957- 
0886. 
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The following monthly magazines include information on several computers, 
including the ATARIs. 

• COMPUTE!. P.O. Box 5406, Greensboro, NC 27403. Phone: (800) 334- 
0868. 

• HOME COMPUTER, P.O. Box 5537, Eugene, OR 97405. Phone: (503) 
485-8796. 

REFERENCE CARDS 

These accordion-fold reference cards are mighty useful! 

• ACE POCKET REFERENCE CARD (ATARI), Advanced Computing Enter¬ 
prises, 5516 Rosehill, Shawnee KS 66216. Phone: (913) 262-2875 or (913) 
631-4180. 

• REFERENCE CARD FOR THE ATARI 400/800 MICROCOMPUTERS, 
Nanos Systems Corp., P.O. Box 24344, Speedway, IN 46224. Phone: (317) 
244-4078. 

The above information may change. For an up-to-date list, send a self-addressed, 
stamped envelope to DragonSmoke, P.O. Box 310, Menlo Park, CA 94026. 


Index 


key,171 

abbreviations, 377 
ABS, 252 
addition, 348 
arithmetic, 348 
array, defined, 305 
arrow keys, 49 
ASC, 268,281 
ASCII, 281 
assigning string, 109 
ATARI BASIC, 6 

ATARI BASIC keywords, 341, 342, 376 
ATARI computers, 2 
ATASCII, 281, 363-375 


BASIC, 6 

BACK S key, 16 

blinking screen characters, 64 

branching, 259 

BREAK key, 44 

brightness, setting, 27 

byte, defined, 8 


calling subroutine, 122 
CAPS key, 19 
CAPS/LOWER key, 19 
cartridges, 4 
cassettes, 4 

channels, input/output, 294 
characters in fantasy games, 228 
chips, 5 

CHR$, 61, 268, 283 
clearing screen, 15, 63 
CLOAD, 345 

colons to separate statements, 81 


colors, 26-30 
control of, 53, 82 
random, 217 
COLOR, 174 
color registers, 29 
GRAPHICS land, 167 
summary tables, 172, 175, 177, 192 
columns on screen, 135 
commands, defined, 13. See also name of com¬ 
mand 
commas 
in DATA, 95 
in INPUT, 143 
in PRINT, 51 
in READ, 98 

compound condition, 244 
computer language, defined, 6 
condition, IF-THEN and, 242 
CONT, 218 
CONTROL key, 16 
correcting mistakes, 46-51 
CSAVE, 344 
CTRL key, 16 
cursor, 16 
movement of, 49 


DATA, 94 
graphics and, 183 
RESTORE and, 271 
string variables and, 116 
DELETE key, 16 
DIM, 109 

direct statements, defined, 13 
disk drives, 5 
diskettes, 5 

distortion of sound, 351 
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division, 348 
dollar sign, 108 
double subscripts, 318 
DRAWTO, 178 
Dungeons & Dragons, 228 

editing, 46 
empty string, 152 
END, 32 
ENTER, 346 
erasing RAM, 42 
errors, 23 
correcting, 47-51 
error messages, 378-380 
ESC key, 323 

fantasy games, 228 
flag, end of data, 272, 310 
floating point numbers, 207 
FOR-NEXT loop, 57, 77 
fraction, 208 

functions. See name of function 


games, fantasy, 228 
GET, 268, 294 
GOSUB, 123 
ON and, 261 
GOTO, 45 
ON and, 261 
graphics, 162-196 
high-resolution, 193 
IF-THEN and, 254 
low-resolution, 188 
subscripted variables and, 313 
GRAPHICS 0 mode, 26 
GRAPHICS 1, 163 
GRAPHICS 2,169 
GRAPHICS 3, 173 
colors and, 256 
GRAPHICS 4 and 6, 192 
GRAPHICS 5 and 7,188 


GRAPHICS 8,193 
GRAPHICS 9,10 and 11, 195 
GRAPHICS 19,194 
graphics characters, 53 
graphics screen, 163 
GTIA chip, 195, 362 

high-resolution graphics, 193 
home position of cursor, 16 
horizontal offset, 218 

IF-THEN, 240 
INPUT, 87 

string variables and, 112 
INSERT key, 50 
INT, 208 
integer, 208 
inverse video, 171 

K byte, defined, 9 
keyboard, 7, 15 
music and, 307 
keyword abbreviations, 377 
keywords, 341, 342, 377 

LEN, 151, 268 
LET, 341 
line numbers, 41 
lines, drawing of, 178, 224 
LIST, 43, 346 
LOAD, 346 
loading program, 345 
loop, 57 
nested, 84 

loudness of sound, 351 
low-resolution graphics, 188 
luminance, 27 
fading of, 82 
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memory 
defined, 6 
locations, 8 
RAM, 8 
ROM, 7 
mistakes, 23 
correcting, 46-51 
multiplication, 348 
music, 32-34, 352 
DATA and, 96 
random, 211 

subscripted variables and, 307 
tempo in, 99 


nested loops, 84 
NEW, 42 
NEXT, 57, 82 
numbers 

floating point, 207, 349 
random, 206 
strings converted to, 290 
number boxes, 72 
subscripted, 305 
numeric variables, 72 
subscripted, 304 


ON. . .GOSUB, 261 
ON. . .GOTO, 261 
OPEN, 294 
OR, 243 


program recorder, 343 
program 
defined, 3, 6 
entering, 41 
listing, 43 
loading, 345 
saving, 344 


quotation marks, 75 
strings and, 107 


RAM (Random Access Memory), 
defined, 8 
random music, 211 
random numbers, 206 
screen position and, 214 
READ, 94, 98 
graphics and, 183 
string variables and, 116 
READY message, 14 
recorder, program, 343 
REM, 60 

reserved words, 376 
RESTORE, 271 
RETURN key, 18 
RETURN, 123 
RND, 206 

ROM (Read Only Memory), defined, 7 
rows on screen, 135 
RUN, 45 
RuneQuest, 228 


parentheses, 304 
patterns, graphics, 173 
pitch, 33, 351 
PLOT, 174 
POKE, 139, 284 
POSITION, 136 
movement and, 145 
PRINT, 21-25,74 
INPUT and, 90 
screen position and, 136 


SAVE, 346 
saving program, 344 
screen maps, 354-362 
screen 

graphics, 163 
movement on, 145 
positions on, 134, 214 
scrolling, defined, 19 
semicolons in PRINT, 51 
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SETCOLOR, 27-30 
SGN, 260 

simple numeric variable, 304, 307 
sound effects, 57, 77 
SOUND, 32-34, 351 
distortion, 34, 351 
frequency, 33, 351 
loudness, 34, 352 
musical notes, 353 
pitch, 33, 351 
random, 217 
turning off, 34, 352 
voice, 33, 351 
See name of statement 
STEP, 79 
STOP, 229 
string 

converted to numbers, 290 
defined, 21, 107 
empty, 152 
string variables, 106 
INPUT and, 112 
subroutines, 122-127 
defined, 122 

subscripted variables, 304 
double, 318 
graphics and, 313 
substring, defined, 278 
subtraction, 348 


SYSTEM RESET key, 21 

TAB key, 323 
tab position in PRINT, 323 
tape cassettes, 343 
text window, 163 
elimination of, 194 
time delay, 57, 81 
subroutine for, 122 
Tunnels & Trolls , 228 

VAL, 268, 290 
value 

absolute, 252 
defined, 73 
string, 108 
variables 
numeric, 72, 91 
string, 106 
subscripted, 304 
vertical offset, 218 
voices, 33, 351 

See page 341 for a list of ATARI BASIC 
keywords covered in this book and 
page 342 for a list of keywords not 
covered in this book. 




Index of 
Programs 


The names of these programs appear in REM statements in the first line of the program. 


ABCD IN GRAPHICS, 18, 201 
ALL COLORS IN GR. 3, 178 
ATASCII CHARACTERS, USING CHRS, 
283 

ATASCII CODES, USING ASC, 282 


BACKGROUND IN GR. 1 & 2, 170 
BLINKING BIRTHDAY MESSAGE, 143 
BLINK NAME IN GR. 1, 167 
BLINK WHAT WHERE, 144 
BOUNCING BALL, 160 
BOUNCE NAME RIGHT & LEFT, 200 
BOXES INGR. 3, 184 


CHAMELEON IN GR. 1 & 2, 170 
COIN FLIP GAME, 244 
COIN FLIPPER & COUNTER, 333 
COLOR & LUMINANCE, 84 
COLOR CHORD, 94 
COLOR EXPERIMENTS IN GR. 3, 176 
COLOR REGISTERS 0 TO 13, 173 
COLOR SIREN, 62 

CREATE A CHARACTER, 229, 268, 291 


DO, RE, MI, 117, 119 
DO, RE, MI, ETC., 68 
DRAW LINES INGR. 3, 181 


EXPERIMENT WITH OPEN & GET, 294 
EXPERIMENT WITH VAL, 290 


FIRST NUMBER GUESSING GAME, 244 
FLIP TWO COINS & COUNT, 337 


GO, TEAM, GO!!!, 122 
GRAPHICS 9 DEMO, 195 
GRAPHICS 11 DEMO, 196 
GUESS MY LETTER, 277 
GUESS MY WORD, 273, 299 
GUESS MY TONE, 249 


HAPPY BIRTHDAY, MOTHER, 136, 139, 166 

HORIZONTAL STRIPES, 190 

HOW MANY LETTERS IN A NAME, 150 


KEYBOARD CHORDS, 340 
KEYBOARD MUSIC USING GET, 296 
KEYBOARD MUSIC WITH ARRAY TN, 307 


LISTEN, AND GUESS MY NUMBER, 251 
LOOK, NO TEXT WINDOW!, 194 


MANDALA, EVERCHANGING, 218, 223 
MERRY CHRISTMAS, FATHER, 159 
MUSIC FROM ATASCII CHARACTERS, 
300, 302 

MUSIC WITH COLOR, 132 
MYSTERY PROGRAM, 299 
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NAME BLINKER, 64 
NAME BLINKER WITH SOUND, 65 
NAME BOUNCER, 152 
NAME FADER, 83 

NEGATIVE, ZERO, OR POSITIVE, 241, 
259, 260 


OUT OF BOUNDS, 243 

ON. . .GOTO EXPERIMENT, 263 


PAINT LINES IN GR. 3, 187 
PLAY A TUNE #1, 97 
PLAY A TUNE #2, 98 
PLOT ANY COLOR, 176 
PRINT WHAT WHERE, 140 


QUIZ SCORES, 328 


RACING COLORS, 256 
RANDOM 3-LETTER "WORDS", 280 
RANDOM BLIPS, 237 
RANDOM BURSTS OF MUSIC, 213 
RANDOM COLOR BLIPS, 217 
RANDOM MUSIC, KEY OF C, 267 
ROLL A BALL RANDOMLY, 236 


SCRABBLE SCORES, 339 
SCREEN COLORS & LUMINANCES, 92, 
93 

SHOOT AN ARROW, 145, 148 
SIREN PROGRAM, #1, 61 
SKITTERY NAME, 214 
SKITTERY NAME IN GR. 17, 214 


SOMEONE LOVES SOMEONE, 159 

SOMETHING IN THE SKY, 183 

SOUND EXPERIMENTER, 91 

SOUND OFF FOR SOMEONE, 113, 131 

STAR INGR. 3, 5, 7, 203 

STARS - A GUESSING GAME, 264, 266 

STARS, CHANGING COLOR, 338 

STRING BLINKER, 114,123 

STRING BLINKER WITH SOUND, 124 

STRING FADER, 115 

STRING MUSIC IN KEY OF C, 300 


TRIANGLES, 203 
TWINKLING STARS, 313 
TWINKLING STARS WITH INPUT, 314 


UNFAIR COIN FLIP GAME, 247 


VERTICAL STRIPES, 191 
VERY RANDOM SOUND, 237 
VOTE COUNTING PROGRAM, 210 
VOTE COUNTING, 2 DIMENSIONAL, 320 


WANDERING CHARACTER, 233 
WORK MAKER, 286 
WORDS & MUSIC, 121 


ZAPPY ARTIST #1,224 

ZAPPY ARTIST #2,225 

ZAPPY ARTIST #3, 227 

ZAPPY ARTIST & FRIENDS MEANDER, 316 

ZAPPY ARTIST DRAWS STRIPES, 262 

ZAPPY ARTIST MEANDERS, 254 
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